NAME

Evo::Test

VERSION

version 0.0301

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() });

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

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.