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
|
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../../../";
use Test::More;
use t::scan::Util;
test(<<'END');
use MooseX::Declare;
role Counter (Str :$name, Int :$charges = 1) {
has $name => (is => 'rw', isa => 'Int', default => $charges);
method "increment_${name}" {
$self->$name($self->$name + 1);
}
method "reset_${name}" {
$self->$name(0);
}
}
class MyGame::Weapon {
with Counter => { name => 'enchantment', charges => 5 };
}
class MyGame::Wand {
with Counter => { name => 'zapped', charges => 3 };
}
class MyGame::Scroll {
with Counter => { name => 'spelled' };
}
END
done_testing;
|
