7 use Test::More tests => 26;
10 use_ok('Moose::AttributeHelpers');
18 metaclass => 'Number',
32 add => {inc => [ 1 ]},
33 sub => {dec => [ 1 ]},
34 mod => {odd => [ 2 ]},
35 div => {cut_in_half => [ 2 ]}
41 isa_ok($real, 'Real');
43 can_ok($real, $_) for qw[
44 set add sub mul div mod abs inc dec odd cut_in_half
47 is $real->integer, 5, 'Default to five';
51 is $real->integer, 15, 'Add ten for fithteen';
55 is $real->integer, 12, 'Subtract three for 12';
59 is $real->integer, 10, 'Set to ten';
63 is $real->integer, 5, 'divide by 2';
67 is $real->integer, 10, 'multiplied by 2';
71 is $real->integer, 0, 'Mod by 2';
77 is $real->integer, 2, 'Mod by 5';
83 is $real->integer, 1, 'abs 1';
89 is $real->integer, 13, 'inc 12';
93 is $real->integer, 12, 'dec 13';
97 my $attr = $real->meta->get_attribute('integer');
98 isa_ok($attr, 'Moose::AttributeHelpers::Number');
100 is_deeply($attr->provides, {
108 }, '... got the right provides mapping');