No need for around here now we compose
David Leadbeater [Wed, 12 Jan 2011 21:35:52 +0000 (21:35 +0000)]
lib/Eval/WithLexicals/WithHintPersistence.pm

index 75e0433..e95a008 100644 (file)
@@ -46,8 +46,7 @@ sub _capture_unroll_global {
   );
 }
 
-around setup_code => sub {
-  shift; # we bypass orig, i.e. using role as normal inheritance.
+sub setup_code {
   my($self) = @_;
   # Only run the prelude on the first eval, hints will be set after
   # that.