use
warnings;
use
strict;
use
Test::More;
use
Test::Warnings;
package
Mockee;
sub
good ($$);
sub
good ($$) {
my
(
$bar
,
$baz
) =
@_
;
return
(
$bar
+ 1,
$baz
+ 2 );
}
1;
package
main;
use
Test::MockModule;
$INC
{
'Mockee.pm'
} = 1;
my
$mocker
= Test::MockModule->new(
'Mockee'
);
$mocker
->redefine(
'good'
, 2 );
done_testing();
#----------------------------------------------------------------------