projects
/
gitmo/Moose.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Convert all tests to done_testing.
[gitmo/Moose.git]
/
t
/
070_native_traits
/
209_trait_code.t
1
use strict;
2
use warnings;
3
4
use Test::More;
5
6
{
7
package Thingy;
8
use Moose;
9
10
has callback => (
11
traits => ['Code'],
12
is => 'ro',
13
isa => 'CodeRef',
14
required => 1,
15
handles => { 'invoke_callback' => 'execute' },
16
);
17
18
has multiplier => (
19
traits => ['Code'],
20
is => 'ro',
21
isa => 'CodeRef',
22
required => 1,
23
handles => { 'multiply' => 'execute' },
24
);
25
}
26
27
my $i = 0;
28
my $thingy = Thingy->new(
29
callback => sub { ++$i },
30
multiplier => sub { $_[0] * 2 }
31
);
32
33
is($i, 0);
34
$thingy->invoke_callback;
35
is($i, 1);
36
is($thingy->multiply(3), 6);
37
38
done_testing;