/ 
Evo-0.0405
River stage one • 1 direct dependent • 1 total dependent
/ Evo::Test

NAME

Evo::Test

VERSION

version 0.0405

SYNOPSYS

{

  package My::Foo;    ## no critic
  sub foo {'FOO'}
}

my $mock = mock('My::Foo::foo', sub { say "Mocked"; call_original() });
my $res = My::Foo->foo();
say $res;                            # FOO
say $mock->get_call(0)->result;      # FOO
say $mock->calls->[0]->args->[0];    # "My::Foo"

MOCK

my $mock = mock('My::Foo::foo', 1); # call original
my $mock = mock('My::Foo::foo', 0); # don't call anything
my $mock = mock('My::Foo::foo', sub { say "Mocked"; call_original() });

# rethrow error 
my $mock = mock('My::Foo::foo', rethrow => 1, patch => sub { die "Foo\n" });

my $res = My::Foo->foo();

# restore
undef $mock;

Create a mock for the subroutine. The subroutine will be restored when the mock object is destroyed. By default swallows all errors. You can pass rethrow as true, in this case exceptions will be recorder then rethrown up, so you will be able to catch them

AUTHOR

alexbyk.com

COPYRIGHT AND LICENSE

This software is copyright (c) 2016 by alexbyk.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.