diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-02-21 15:17:05 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-02-21 15:17:05 -0600 |
commit | b7f33292fd44a52fdb9f6145c43c717f6585d88c (patch) | |
tree | d739d28657e203ded8e011ec428088f699d9a321 /t/40-mop.t | |
parent | 4595271c2aebc580c6957cfe3ae7e39f2d519865 (diff) | |
download | bread-board-declare-b7f33292fd44a52fdb9f6145c43c717f6585d88c.tar.gz bread-board-declare-b7f33292fd44a52fdb9f6145c43c717f6585d88c.zip |
more with_immutable
Diffstat (limited to 't/40-mop.t')
-rw-r--r-- | t/40-mop.t | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -2,6 +2,7 @@ use strict; use warnings; use Test::More; +use Test::Moose; { package Foo; @@ -25,7 +26,7 @@ use Test::More; ); } -{ +with_immutable { my $foo = Foo->new; my $foo_attr = $foo->meta->get_attribute('foo'); my $bar_attr = $foo->meta->get_attribute('bar'); @@ -33,6 +34,6 @@ use Test::More; is($bar_attr->get_value($foo), 'FOOBAR', "right value"); ok(!$foo_attr->has_value($foo), "no value"); ok(!$bar_attr->has_value($foo), "no value"); -} +} 'Foo'; done_testing; |