use
strict;
use
warnings;
use
Test::More 0.88;
use
if
$ENV
{AUTHOR_TESTING},
'Test::Warnings'
;
do
{
sub
onacci { (1, 1, 2) }
};
is_deeply([Fib->onacci], [1, 1, 2]);
do
{
before
onacci
=>
sub
{};
};
is_deeply([Fib->onacci], [1, 1, 2]);
do
{
after
onacci
=>
sub
{};
};
is_deeply([Fib->onacci], [1, 1, 2]);
done_testing;