[gitmo/MooseX-ClassAttribute.git] / t / 04-with-attribute-helpers.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 2;

do {
    package MyClass;
    use MooseX::ClassAttribute;
    use MooseX::AttributeHelpers;

    class_has counter => (
        metaclass => 'Counter',
        is        => 'ro',
        provides  => {
            inc => 'inc_counter',
        },
    );
};

is(MyClass->counter, 0);
MyClass->inc_counter;
is(MyClass->counter, 1);
Commit	Line	Data
29c02565	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More tests => 2;
	5
	6	do {
	7	package MyClass;
	8	use MooseX::ClassAttribute;
	9	use MooseX::AttributeHelpers;
	10
	11	class_has counter => (
	12	metaclass => 'Counter',
	13	is => 'ro',
	14	provides => {
	15	inc => 'inc_counter',
	16	},
	17	);
	18	};
	19
	20	is(MyClass->counter, 0);
	21	MyClass->inc_counter;
	22	is(MyClass->counter, 1);
	23