Erreur lors de la création d'une instance en utilisant $ self dans un script perl

Question

Je tente de créer un objet dans mon script perl. Par conséquent, j'ai un constructeur

new(;@) 
{ 
    my $class = shift; 
    my $self = {}; 
    bless $self, $class; 
    $self->_init(@_); 
    return $self; 
} 

Et ma _init(;@) fonction, pour initialiser l'objet

my $self = shift; 
if(@_) 
{ 
    my %extra = @_; 
    @$self{keys %extra} = values %extra; 
} 
return; 

Suis-je utiliser ces deux fonctions dans le mauvais sens? Je commence tous les autres sous les deux lignes

my $self = shift; 
croak "instance method called for class" unless ref $self; 

Mais je reçois seulement syntax/String found where operator expected erreurs en retour à chaque fois que je l'utilise.

Par conséquent ma Question: Est-ce que j'utilise les deux fonctions de la bonne façon? J'ai toujours pensé que j'avais seulement besoin d'initialiser $self une fois, comme je l'ai fait, et que je peux pointer tout ce que je veux pour le reste du script.

Answer 1

croak n'est pas chargé par défaut. Vous devez use Carp dans le package pour pouvoir l'utiliser (voir Carp).

BTW, prototypes sont ignorés avec des appels de méthode. Ne les utilisez pas. Don't use them for functions, either.

Vous pouvez utiliser quelque chose comme Class::Declare::Attributes pour économiser quelques:

sub new :class { 
    ... 
}