projects
/
gitmo/Role-Tiny.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
tests for around does => sub {...}
[gitmo/Role-Tiny.git]
/
t
/
around-does.t
1
use Test::More;
2
3
my $pass;
4
my $pass2;
5
6
BEGIN {
7
package Local::Role;
8
use Role::Tiny;
9
around does => sub {
10
my ($orig, $self, @args) = @_;
11
$pass++;
12
return $self->$orig(@args);
13
};
14
around DOES => sub {
15
my ($orig, $self, @args) = @_;
16
$pass2++;
17
return $self->$orig(@args);
18
};
19
}
20
21
BEGIN {
22
package Local::Class;
23
use Role::Tiny::With;
24
with 'Local::Role';
25
}
26
27
ok(Local::Class->does('Local::Role'));
28
ok($pass);
29
ok(Local::Class->DOES('Local::Role'));
30
ok($pass2);
31
done_testing();