在Test :: MockObject中使用set_bound的Perl

Question

有人可以提供一個使用set_bound()方法從Test::MockObject模塊的例子嗎？

set_bound()方法可以返回的Test::MockObject實例（或任何其他對象爲此事）

Answer 1

* 「可以set_bound方法返回的Test :: MockObject的實例（或任何其他對象爲此事）」 *

是的。從source：

sub set_bound { 
    # ... 
    return unless exists $bindings{reftype($ref)}; 
    $self->mock($name, $bindings{reftype($ref)}); 
} # So this returns either undef, or result of mock() call 

sub mock { 
    #... 
    $self; 
} # So this CAN return an instance of Test::MockObject 

* 可有人請提供使用set_bound方法從測試:: MockObject模塊的例子*

my $value = 'X'; 
$mock->set_bound('next_value', \$value); 
is($mock->next_value, 'X'); 
$var = 'Y'; 
is($mock->next_value, 'Y'); # Method result changed to new value of the variable 

爲什麼要用它？ POD陳述「這比替換模擬方法更容易」。我認爲「更便利」是啤酒持有人的眼中人，但它確實是一個很好的捷徑。