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

use strict;
use warnings;

use Test::More tests => 2;

{
    package MyClass;

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