← Back
Editing: 005-return.t
#!/usr/bin/perl use strict; use warnings; 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; use Class::Method::Modifiers; before onacci => sub {}; }; is_deeply([Fib->onacci], [1, 1, 2]); do { package Fib; use Class::Method::Modifiers; after onacci => sub {}; }; is_deeply([Fib->onacci], [1, 1, 2]); done_testing;
Save File
Cancel