El Método _init

El método privado _init inicializa el hash referenciado por $self según lo indicado en el hash %args.

39	  sub _init {
40	    my ($self, %args) = @_;
41	    my %inits;
42	    my ($i, $j);
43	
44	    for $i ($self->_standard_keys) {
45	      $j = $i;
46	      $j =~ s/_//;
47	      $inits{$i} = $args{$j} || $self->_default_for($i);
48	    }
49	    %$self = %inits;
50	  }
51	}

Las claves en %args no van precedidas de guión bajo (se supone que la llamada desde el programa cliente usará los nombres de los atributos sin guión bajo). Si la clave no figura en %args se inicializa al valor por defecto.