We only need local $? if we inline calls to DEMOLISH

[gitmo/Moose.git] / t / examples / example_Protomoose.t

diff --git a/t/examples/example_Protomoose.t b/t/examples/example_Protomoose.t
index 09a82aa..5a18445 100644 (file)
--- a/t/examples/example_Protomoose.t
+++ b/t/examples/example_Protomoose.t
@@ -141,7 +141,7 @@ Well cause merlyn asked if it could :)
         );
     }
 
-    around 'construct_instance' => sub {
+    around '_construct_instance' => sub {
         my $next = shift;
         my $self = shift;
         # NOTE:
@@ -252,10 +252,10 @@ is(Foo->bar, 100, '... got the value stored in the prototype (through the Foo cl
 
 # now we can check that the subclass
 # will seek out the correct prototypical
-# value from it's "parent"
+# value from its "parent"
 is(Bar->bar, 100, '... got the value stored in the Foo prototype (through the Bar class)');
 
-# we can then also set it's local attrs
+# we can then also set its local attrs
 Bar->baz(50);
 is(Bar->baz, 50, '... got the value stored in the prototype (through the Bar class)');