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