1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
|
use strict;
use warnings;
use Test::More 0.88;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
my @seen;
package Parent;
sub new { bless {}, shift }
sub left { push @seen, "orig-left" }
sub right { push @seen, "orig-right" }
package Child;
our @ISA = 'Parent';
use Class::Method::Modifiers;
before 'left', 'right' => sub { push @seen, 'before' };
package Grandchild;
our @ISA = 'Child';
use Class::Method::Modifiers;
before ['left', 'right'] => sub { push @seen, 'grandbefore' };
package main;
my $child = Child->new();
$child->left;
is_deeply([splice @seen], [qw/before orig-left/], "correct 'left' results");
$child->right;
is_deeply([splice @seen], [qw/before orig-right/], "correct 'right' results");
my $grand = Grandchild->new();
$grand->left;
is_deeply([splice @seen], [qw/grandbefore before orig-left/], "correct 'left' results");
$grand->right;
is_deeply([splice @seen], [qw/grandbefore before orig-right/], "correct 'right' results");
done_testing;
|