=cut
=head3 new
Overloaded I<new> method to set default values
sub new {
my ( $class, $params ) = @_;
$params->{datecreated} ||= dt_from_string;
return $class->SUPER::new($params);
}
=head3 subtitles
my @subtitles = $biblio->subtitles();
use Modern::Perl;
use Test::More tests => 2;
use Test::More tests => 3;
use C4::Reserves;
)->insert();
subtest 'new' => sub {
plan tests => 1;
is( $biblio->datecreated, dt_from_string, "datecreated must be set to today if not passed to the constructor" );
};
subtest 'holds + current_holds' => sub {
plan tests => 5;
C4::Reserves::AddReserve( $patron->branchcode, $patron->borrowernumber, $biblio->biblionumber );
-