4 use Test::More tests => 3;
12 sub foo { push @parent_calls, [@_] }
20 push @child_calls, [splice @_];
26 is_deeply([splice @parent_calls], [[Child => 10, 11]]);
27 is_deeply([splice @child_calls], [[10, 11]]);
32 override foo => sub { };
33 } qr/^You cannot override 'foo' because it has no super method/;