use strict;
use warnings;
use Test::More;
{
package MyClass;
use Moose;
use MooseX::ClassAttribute;
class_has counter => (
traits => ['Counter'],
is => 'ro',
default => 0,
handles => {
inc_counter => 'inc',
},
);
}
is( MyClass->counter(), 0 );
MyClass->inc_counter();
is( MyClass->counter(), 1 );
done_testing();