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
|
#!/usr/bin/perl -w
use strict;
use Test::More tests => 3;
use Data::Dumper;
my $r;
use lib 't/lib'; use b;
use Sub::WrapPackages (
packages => [qw(b)],
wrap_inherited => 1,
pre => sub { $r .= join(", ", @_); },
post => sub {
$r .= ref($_[1]) =~ /^ARRAY/ ? join(', ', @{$_[1]}) : $_[1];
}
);
$r .= b->b_function();
ok($r eq 'b::b_function, bi like piei like pie',
'when wrapping inherited methods, normal methods are wrapped too');
$r = '';
my @r = b->a_list(4,6,8);
ok(join('', @r) eq 'insuba_list' && $r eq 'b::a_list, b, 4, 6, 8in, sub, a_list',
'Can wrap inherited subs');
$r = '';
@r = a->a_list(4,6,8);
ok(join('', @r) eq 'insuba_list' && $r eq '', 'And calling the superclass method directly avoids wrapping shenanigans');
|
