El Constructor

En la línea 57 se bendice el objeto aún sin inicializar.

53	sub new {
54	  my $class = shift;
55	  my $self = {};
56	
57	  bless $self, ref($class) || $class;
58	
59	  $self->_incr_count();
60	  $self->_init(@_);
61	
62	  return $self;
63	}

Cuando el constructor es llamado mediante Biblio::Doc->new() la variable $class contendrá la cadena 'Biblio::Doc' por lo que ref($class) devuelve undef y $self será bendecido en 'Biblio::Doc'.