[Moose-commits] r7888 - in MooseX-InsideOut/trunk: lib/MooseX/InsideOut/Role/Meta t

[hdp at code2.0beta.co.uk]

Author: hdp
Date: 2009-04-04 09:33:17 -0700 (Sat, 04 Apr 2009)
New Revision: 7888

Modified:
   MooseX-InsideOut/trunk/lib/MooseX/InsideOut/Role/Meta/Instance.pm
   MooseX-InsideOut/trunk/t/sub.t
Log:
test immutable too

Modified: MooseX-InsideOut/trunk/lib/MooseX/InsideOut/Role/Meta/Instance.pm
===================================================================
--- MooseX-InsideOut/trunk/lib/MooseX/InsideOut/Role/Meta/Instance.pm	2009-04-04 05:43:43 UTC (rev 7887)
+++ MooseX-InsideOut/trunk/lib/MooseX/InsideOut/Role/Meta/Instance.pm	2009-04-04 16:33:17 UTC (rev 7888)
@@ -52,7 +52,7 @@
   my $next = shift;
   my ($self, $class_variable) = @_;
   my $code = $self->$next($class_variable);
-  $code = "do { {my \$instance = ($code);";
+  $code = "do { my \$instance = ($code);";
   $code .= sprintf(
     '$%s::attr{Scalar::Util::refaddr($instance)} = {};',
     __PACKAGE__,

Modified: MooseX-InsideOut/trunk/t/sub.t
===================================================================
--- MooseX-InsideOut/trunk/t/sub.t	2009-04-04 05:43:43 UTC (rev 7887)
+++ MooseX-InsideOut/trunk/t/sub.t	2009-04-04 16:33:17 UTC (rev 7888)
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests => 28;
+use Test::More tests => 56;
 
 use lib 't/lib';
 my @classes = qw(IO Array Hash Moose);
@@ -40,4 +40,5 @@
 #  use Data::Dumper;
 #  diag Dumper($obj);
 
+  $sub->meta->make_immutable, redo if $sub->meta->is_mutable;
 }