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