Perl использует set_bound в Test :: MockObject

Question

Может ли кто-нибудь предоставить пример использования set_bound() метода из Test::MockObject модуля?

Может set_bound() метод вернуть экземпляр Test::MockObject (или любой другой объект в этом отношении)

Answer 1

* "Может ли метод set_bound вернуть экземпляр Test :: MockObject (или любого другого объекта в этом отношении)" *

Да. Из источника :

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 из модуля Test :: 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 заявляет: «Это часто удобнее, чем замена ложных методов». Я полагаю, что "handier" в глазах держателя пива, но это, безусловно, хороший ярлык, чтобы иметь в наличии.