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