Commit | Line | Data |
---|---|---|
9924122d | 1 | use strict; |
2 | use warnings; | |
3 | ||
d4e5a2f2 | 4 | use Test::More; |
3272340d | 5 | |
6 | use Test::Requires { | |
287f2b9d | 7 | 'MooseX::AttributeHelpers' => 0.23, |
3272340d | 8 | }; |
9924122d | 9 | |
9924122d | 10 | |
11 | { | |
12 | package MyClass; | |
13 | ||
deaffdd0 | 14 | use Moose; |
9924122d | 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 | ||
d4e5a2f2 | 31 | done_testing(); |