The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

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