El Constructor

A continuación viene el constructor de objetos new (su nombre es arbitrario, pero la costumbre es llamar así a los constructores) de la clase Biblio::Doc

 1 sub new {
 2   my $class = shift;
 3   my ($identifier, $author, $publisher, $title,  $year, $url) = @_;
 4   $class->_incr_count();
 5 
 6   my $paper = {
 7     _identifier      => $identifier,
 8     _author    => $author,
 9     _publisher => $publisher,
10     _title     => $title,
11     _year      => $year,
12     _url       => $url
13   };
14 
15   bless  $paper, $class;
16 }