[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',
        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
ee29de7b	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',
	15	handles => {
	16	inc_counter => 'inc',
	17	},
	18	);
	19	}
	20
	21	is( MyClass->counter(), 0 );
	22
	23	MyClass->inc_counter();
	24	is( MyClass->counter(), 1 );
ee29de7b	25
ee29de7b	26	done_testing();