Commit | Line | Data |
9924122d |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | |
6 | BEGIN { |
7 | eval "use MooseX::AttributeHelpers 0.13;"; |
8 | plan skip_all => 'This test requires MooseX::AttributeHelpers 0.13+' |
9 | if $@; |
10 | } |
11 | |
12 | { |
13 | package MyClass; |
14 | |
15 | use MooseX::ClassAttribute; |
16 | use MooseX::AttributeHelpers; |
17 | |
18 | class_has counter => |
19 | ( metaclass => 'Counter', |
20 | is => 'ro', |
21 | provides => { inc => 'inc_counter', |
22 | }, |
23 | ); |
24 | } |
25 | |
26 | is( MyClass->counter(), 0 ); |
27 | |
28 | MyClass->inc_counter(); |
29 | is( MyClass->counter(), 1 ); |
30 | |
31 | done_testing(); |