如何在使用Test :: MockModule的函数之前附加一些逻辑？

Question

这是模拟模块我使用：

http://metacpan.org/pod/Test::MockModule

如何嘲笑sub a到sub b，

其中sub b少了点呼叫sub a之前别的东西吗？

sub b { 
    #do something else 
    a(@_); 
} 

Answer 1

你可以抓住与can（UNIVERSAL::can）未模拟的方法。之后，您可以使用goto它或者只使用＆符号调用样式来传递相同的参数。这就是我在下面做的。

my $old_a = Package::To::Be::Mocked->can('a'); 
$pkg->mock(a => sub { 
     # do some stuff 
     &$old_a; 
}); 

当然，这是假设你的个子不AUTOLOAD或通过AUTOLOAD不需要重新定义can产生。 （我了解到几年前，如果你要惹AUTOLOAD，它可能是最好做的工作can）

您还可以通过 入侵 修改Test::MockModule创建自己的工具，它会自动执行此，的名字空间。

{ package Test::MockModule; 
    sub modify { 
     my ($self, $name, $modfunc) = @_; 
     my $mock_class = $self->get_package(); 
     my $old_meth = $mock_class->can($name); 
     croak("Method $name not defined for $mock_class!") unless $old_meth; 
     return $self->mock($name => $modfunc->($old_meth)); 
    } 
} 

而且你可以把它像这样：

$mock->modify(a => sub { 
    my $old_a = shift; 
    return sub { 
     my ($self) = @_; 
     # my stuff and I can mess with $self 
     local $Carp::CarpLevel += 1; 
     my @returns = &$old_a; 
     # do stuff with returns 
     return @returns; 
    }; 
});