The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
|
sub fourofour { 404 }
my $mocker = Test::MockModule->new( 'main' )->redefine( fourofour => 200 );
is fourofour(), 200, "can mock a function in main # need SUPER > 1.17" ;
done_testing();
|