[gitmo/MooseX-ClassAttribute.git] / t / 04-with-native-traits.t

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();
Commit	Line	Data
ed10982f	1	use strict;
	2	use warnings;
	3
d4e5a2f2	4	use Test::More;
ed10982f	5
	6	{
	7	package MyClass;
	8
deaffdd0	9	use Moose;
ed10982f	10	use MooseX::ClassAttribute;
	11
	12	class_has counter => (
	13	traits => ['Counter'],
	14	is => 'ro',
b6819869	15	default => 0,
ed10982f	16	handles => {
	17	inc_counter => 'inc',
	18	},
	19	);
	20	}
	21
	22	is( MyClass->counter(), 0 );
	23
	24	MyClass->inc_counter();
	25	is( MyClass->counter(), 1 );
ee29de7b	26
d4e5a2f2	27	done_testing();