Comment gérer les paramètres optionnels dans Moose?

Question

Je commence actuellement avec Perl OOP en utilisant le paquet "Moose".

Le compilateur se plaint qu'il "ne peut pas modifier l'appel de sous-routine non-lvalue à Parser.pm ligne 16."

Je ne comprends pas très bien pourquoi je ne peux pas simplement assigner un nouvel objet. Je suppose qu'il existe une meilleure façon de faire des paramètres optionnels avec Moose?

#!/usr/bin/perl -w 

package Parser; 

use Moose; 

require URLSpan; 

require WWW::Mechanize; 

has 'urlspan' => (is => 'rw', isa => 'URLSpan', required => 1); 
has 'mech' => (is => 'rw', isa => 'WWW::Mechanize'); 

sub BUILD { 
    my $self = shift; 
    if(!$self->mech) { 
     warn("no Mech set for " . $self->urlspan->name); 
     $self->mech = WWW::Mechanize->new(agent => 'Mozilla/5.0 (Windows; U; Windows NT 6.0; de; rv:1.9.0.6) Gecko/2009011913 Firefox/3.0.4', 
             stack_depth => 1 
             ); #line 16 
     } 

} 

Answer 1

$self->mech est un appel de méthode; vous ne pouvez pas vraiment le traiter comme un champ dans un C struct. Si vous voulez le définir, vous devez lui passer le nouvel objet.

 $self->mech( 
      WWW::Mechanize->new(
       agent => 'xyz', 
       stack_depth => 1 
      ) 
     ); 

Answer 2

Alors que Perl a fourni la possibilité d'utiliser les attributs de la façon dont vous essayez de pour un bon nombre d'années (par ce qu'on appelle lvalue sous-marins), ce n'est pas quelque chose qui était dans la première OO Perl libère, et les à peu près appris à faire sans. D'autant plus que la mise en œuvre de la validation est un peu délicate (et inefficace).

Vous pouvez utiliser MooseX::Meta::Attribute::Lvalue, mais (selon le document) au prix de ne pas avoir de vérification de type sur certains attributs.

Je vous recommande de coller simplement au style $ self-> attribute ("value").

Answer 3

Probablement la façon Moose préféré de le faire est de mettre lazy_build sur l'attribut:

has 'mech' => (is => 'rw', isa => 'WWW::Mechanize', lazy_build => 1); 
sub _build_mech { 
    warn("no Mech set for " . $self->urlspan->name); 
    WWW::Mechanize->new(
      agent => 'Mozilla/5.0 (Windows; U; Windows NT 6.0; de; rv:1.9.0.6)'. 
        ' Gecko/2009011913 Firefox/3.0.4', 
      stack_depth => 1 
    ); 
} 

Cela permettra à l'attribut « mech » pour obtenir peuplé la première fois qu'il est appelé, sauf indication contraire par la constructeur ou par l'accesseur (puisque c'est toujours 'rw').