# NAME Test::Mock::Guard - Simple mock test library using RAII. # SYNOPSIS use Test::More; use Test::Mock::Guard qw(mock_guard); package Some::Class; sub new { bless {} => shift } sub foo { "foo" } sub bar { 1; } package main; { my $guard = mock_guard( 'Some::Class', { foo => sub { "bar" }, bar => 10 } ); my $obj = Some::Class->new; is( $obj->foo, "bar" ); is( $obj->bar, 10 ); } my $obj = Some::Class->new; is( $obj->foo, "foo" ); is( $obj->bar, 1 ); done_testing; # DESCRIPTION Test::Mock::Guard is mock test library using RAII. This module is able to change method behavior by each scope. See SYNOPSIS's sample code. # EXPORT FUNCTION ## mock\_guard( @class\_defs ) @class\_defs have the following format. - key Class name or object to mock. - value Hash reference. Keys are method names; values are code references or scalars. If the value is code reference, it is used as a method. If the value is a scalar, the method will return the specified value. You can mock instance methods as well as class methods (this feature was provided by cho45): use Test::More; use Test::Mock::Guard qw(mock_guard); package Some::Class; sub new { bless {} => shift } sub foo { "foo" } package main; my $obj1 = Some::Class->new; my $obj2 = Some::Class->new; { my $obj2 = Some::Class->new; my $guard = mock_guard( $obj2, { foo => sub { "bar" } } ); is ($obj1->foo, "foo", "obj1 has not changed" ); is( $obj2->foo, "bar", "obj2 is mocked" ); } is( $obj1->foo, "foo", "obj1" ); is( $obj2->foo, "foo", "obj2" ); done_testing; # METHODS ## new( @class\_defs ) See ["mock_guard"](#mock_guard) definition. ## call\_count( $class\_name\_or\_object, $method\_name ) Returns a number of calling of $method\_name in $class\_name\_or\_object. # AUTHOR Toru Yamaguchi <zigorou@cpan.org> Yuji Shimada <xaicron at cpan.org> Masaki Nakagawa <masaki@cpan.org> # THANKS TO cho45 <cho45@lowreal.net> # SEE ALSO [Test::MockObject](https://metacpan.org/pod/Test::MockObject) # LICENSE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.