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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 26;
use Test::Exception;
BEGIN {
use_ok('Class::MOP');
use_ok('Class::MOP::Method');
}
# test before and afters
{
my $trace = '';
my $method = Class::MOP::Method->wrap(sub { $trace .= 'primary' });
isa_ok($method, 'Class::MOP::Method');
$method->();
is($trace, 'primary', '... got the right return value from method');
$trace = '';
my $wrapped = Class::MOP::Method::Wrapped->wrap($method);
isa_ok($wrapped, 'Class::MOP::Method::Wrapped');
isa_ok($wrapped, 'Class::MOP::Method');
$wrapped->();
is($trace, 'primary', '... got the right return value from the wrapped method');
$trace = '';
lives_ok {
$wrapped->add_before_modifier(sub { $trace .= 'before -> ' });
} '... added the before modifier okay';
$wrapped->();
is($trace, 'before -> primary', '... got the right return value from the wrapped method (w/ before)');
$trace = '';
lives_ok {
$wrapped->add_after_modifier(sub { $trace .= ' -> after' });
} '... added the after modifier okay';
$wrapped->();
is($trace, 'before -> primary -> after', '... got the right return value from the wrapped method (w/ before)');
$trace = '';
}
# test around method
{
my $method = Class::MOP::Method->wrap(sub { 4 });
isa_ok($method, 'Class::MOP::Method');
is($method->(), 4, '... got the right value from the wrapped method');
my $wrapped = Class::MOP::Method::Wrapped->wrap($method);
isa_ok($wrapped, 'Class::MOP::Method::Wrapped');
isa_ok($wrapped, 'Class::MOP::Method');
is($wrapped->(), 4, '... got the right value from the wrapped method');
lives_ok {
$wrapped->add_around_modifier(sub { (3, $_[0]->()) });
$wrapped->add_around_modifier(sub { (2, $_[0]->()) });
$wrapped->add_around_modifier(sub { (1, $_[0]->()) });
$wrapped->add_around_modifier(sub { (0, $_[0]->()) });
} '... added the around modifier okay';
is_deeply(
[ $wrapped->() ],
[ 0, 1, 2, 3, 4 ],
'... got the right results back from the around methods (in list context)');
is(scalar $wrapped->(), 4, '... got the right results back from the around methods (in scalar context)');
}
{
my @tracelog;
my $method = Class::MOP::Method->wrap(sub { push @tracelog => 'primary' });
isa_ok($method, 'Class::MOP::Method');
my $wrapped = Class::MOP::Method::Wrapped->wrap($method);
isa_ok($wrapped, 'Class::MOP::Method::Wrapped');
isa_ok($wrapped, 'Class::MOP::Method');
lives_ok {
$wrapped->add_before_modifier(sub { push @tracelog => 'before 1' });
$wrapped->add_before_modifier(sub { push @tracelog => 'before 2' });
$wrapped->add_before_modifier(sub { push @tracelog => 'before 3' });
} '... added the before modifier okay';
lives_ok {
$wrapped->add_around_modifier(sub { push @tracelog => 'around 1'; $_[0]->(); });
$wrapped->add_around_modifier(sub { push @tracelog => 'around 2'; $_[0]->(); });
$wrapped->add_around_modifier(sub { push @tracelog => 'around 3'; $_[0]->(); });
} '... added the around modifier okay';
lives_ok {
$wrapped->add_after_modifier(sub { push @tracelog => 'after 1' });
$wrapped->add_after_modifier(sub { push @tracelog => 'after 2' });
$wrapped->add_after_modifier(sub { push @tracelog => 'after 3' });
} '... added the after modifier okay';
$wrapped->();
is_deeply(
\@tracelog,
[
'before 3', 'before 2', 'before 1', # last-in-first-out order
'around 3', 'around 2', 'around 1', # last-in-first-out order
'primary',
'after 1', 'after 2', 'after 3', # first-in-first-out order
],
'... got the right tracelog from all our before/around/after methods');
}
|
