Commit | Line | Data |
6d043508 |
1 | #!/usr/bin/env perl |
2 | use strict; |
3 | use warnings; |
4 | use Test::More tests => 2; |
5 | |
6 | do { |
7 | package TestClass; |
8 | BEGIN { |
9 | ::plan skip_all => "MooseX::ClassAttribute required for this test" |
10 | unless eval { |
11 | require MooseX::ClassAttribute; |
12 | MooseX::ClassAttribute->VERSION('0.05'); |
13 | }; |
14 | MooseX::ClassAttribute->import; |
15 | } |
16 | |
17 | class_has counter => ( |
18 | metaclass => 'Counter', |
19 | provides => { |
20 | inc => 'inc_counter', |
21 | }, |
22 | ); |
23 | }; |
24 | |
25 | is(TestClass->counter, 0); |
26 | TestClass->inc_counter; |
27 | is(TestClass->counter, 1); |
28 | |