我使用Perl Moose角色(Import::Git::Role
)作为抽象基类来分享类的实际实现(Import::Git
)和执行某些日志记录的类(Import::Git::dryrun
)之间的共同行为。
我希望dryrun类是透明的。我想创建一个这样的对象:
my $git = Import::Git->new( dryrun => $dryrun );
变量dryrun可以是0或1.如果它是1,我想构建一个Import::Git::dryrun
对象,基本上用它替换Import::Git
对象。这是因为他们通过角色分享所有方法。
我试图在BUILDARGS方法中交换Object,如下所示:
around BUILDARGS => sub {
my $orig = shift;
my $class = shift;
my %args = ( @_ == 1 ? %{ $_[ 0 ] } : @_ );
if ( !%args || $args{ 'dryrun' } != 1 ) {
return $class->$orig( @_ );
}
else {
return Import::Git::dryrun->$orig( @_ );
}
};
但这并没有达到我想要做的,它构建了旧类:
DB<1> x Import::Git->new( dryrun => 1 )
0 Import::Git=HASH(0x2fd9210)
'dryrun' => 1
DB<2> x Import::Git->new()
0 Import::Git=HASH(0x301dbb8)
'dryrun' => 0
DB<3>
我想我可能不得不调用dryrun方法的新方法,所以我进行了以下交换:
# change this:
return Import::Git::dryrun->$orig( @_ );
# to this
return Import::Git::dryrun->new( @_ );
但它返回BUILDARGS did not return a HASH reference
。
我错过了什么?
让构造函数构建一个不同于所请求的类的类是icky。即使它确实有效,我也不会采取你所做的方法。我会用
sub factory {
my ($class, %opts) = @_;
return $opt{dryrun} ? $class.'::dryrun' : $class;
}
Import::Git->factory( dryrun => $dryrun )->new( ... )
要么
sub instantiate {
my ($class, %opts) = @_;
return ( delete($opt{dryrun}) ? $class.'::dryrun' : $class )->new(%opts);
}
Import::Git->instantiate( dryrun => $dryrun, ... )
BUILDARGS
用于操作在创建对象之前传递给对象构造函数的参数列表,因此不会影响新的返回。你可能想尝试around BUILDARGS
而不是around new
,那么你可以用你的干跑对象替换new返回的对象。