X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTest%2FMoose.pm;h=216931f09422f9da1bbfb962c43c22341a6c5ab4;hb=efa728b4984ddf1611bc9931fbc209438459652c;hp=c913117010e546ac39b5942fd90c9cf402164bd9;hpb=8b5074ce1a5038824f1e1177cd00d1bcfec5a9fb;p=gitmo%2FMoose.git diff --git a/lib/Test/Moose.pm b/lib/Test/Moose.pm index c913117..216931f 100644 --- a/lib/Test/Moose.pm +++ b/lib/Test/Moose.pm @@ -9,7 +9,7 @@ use Test::Builder; use List::MoreUtils 'all'; use Moose::Util 'does_role', 'find_meta'; -our $VERSION = '0.97'; +our $VERSION = '1.15'; $VERSION = eval $VERSION; our $AUTHORITY = 'cpan:STEVAN'; @@ -76,7 +76,7 @@ sub with_immutable (&@) { my $block = shift; my $before = $Test->current_test; $block->(); - $_->meta->make_immutable for @_; + Class::MOP::class_of($_)->make_immutable for @_; $block->(); my $num_tests = $Test->current_test - $before; return all { $_ } ($Test->summary)[-$num_tests..-1];