Select Code to Download

use warnings;
use strict;
...
}

my $foo_sub = $m->mock('foo');

Prototype mismatch: sub main::foo ($$$) vs none at /home/stevieb/perl5
+/perlbrew/perls/perl-5.26.1/lib/site_perl/5.26.1/Mock/Sub/Child.pm li
+ne 122.
Prototype mismatch: sub main::foo: none vs ($$$) at /home/stevieb/perl
+5/perlbrew/perls/perl-5.26.1/lib/site_perl/5.26.1/Mock/Sub/Child.pm l
+ine 140.

use warnings;
use strict;
...
say foo(1, 2, 3);

say $foo->called_count;

test
test
test
3

Not enough arguments for main::foo at mock.pl line 21, near "()"
Execution of mock.pl aborted due to compilation errors.

    {
        no strict 'refs';
...
            }
        };
    }