PerlはTest :: MockObjectでset_boundを使用しています

Question

set_bound()メソッドを使用した例をTest::MockObjectモジュールから提供できますか？

set_bound()方法は「メソッドがテストのインスタンスを返すset_boundことができます:: MockObject（またはそのことについては、他のオブジェクト）」Test::MockObject（またはそのことについては、他のオブジェクト）

Answer 1

* のインスタンスを返すことができます*

はい。 ？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 

* 誰かがテスト:: MockObjectモジュールからset_boundメソッドの使用例を提供していただけます*

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は「これはモックメソッドを置き換えるよりも手軽です」と述べています。私はビールホルダーの目の前に「手のひら」がありますが、それは確かに利用可能な素敵なショートカットです。