#!perl

BEGIN {
    require Config;
    import Config;
    if ($Config{'extensions'} !~ /\bOpcode\b/) {
	print "1..0\n";
	exit 0;
    }
}

use strict;
use warnings;
use Test::More;
use Safe;
plan(tests => 1);

my $c = new Safe;

{
    package My::Controller;
    sub jopa { return "jopa" }
}

$c->reval(q{
    package My::Controller;
    sub jopa { return "hacked" }

    My::Controller->jopa; # let it cache package
});

is(My::Controller->jopa, "jopa", "outside packages cannot be overriden");