t/001_mouse/046-meta-add_attribute.t

   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');