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