1#!perl 2 3BEGIN { 4 require Config; 5 import Config; 6 if ($Config{'extensions'} !~ /\bOpcode\b/) { 7 print "1..0\n"; 8 exit 0; 9 } 10} 11 12use strict; 13use warnings; 14use Test::More; 15use Safe; 16plan(tests => 1); 17 18my $c = new Safe; 19 20{ 21 package My::Controller; 22 sub jopa { return "jopa" } 23} 24 25$c->reval(q{ 26 package My::Controller; 27 sub jopa { return "hacked" } 28 29 My::Controller->jopa; # let it cache package 30}); 31 32is(My::Controller->jopa, "jopa", "outside packages cannot be overriden"); 33