[gitmo/Mouse.git] / t / 001_mouse / 046-meta-add_attribute.t

use strict;
use warnings;
use Test::More tests => 1;

{
    package Foo;
    use Mouse;
}
 
Foo->meta->add_attribute(
    'foo' => (
        is => 'ro',
        isa => 'Str',
        default => 'bar',
    )
);
is(Foo->new->foo, 'bar');
Commit	Line	Data
60f6eba9	1	use strict;
	2	use warnings;
	3	use Test::More tests => 1;
	4
	5	{
	6	package Foo;
	7	use Mouse;
	8	}
	9
	10	Foo->meta->add_attribute(
	11	'foo' => (
	12	is => 'ro',
	13	isa => 'Str',
	14	default => 'bar',
	15	)
	16	);
	17	is(Foo->new->foo, 'bar');