package FOO;

sub asdf{shift ; reverse @_};

package main;

# need an object so that functions get bound at runtime
my $o = bless {}, 'FOO';

print $o->asdf(1..10); # ok

undef %FOO::;

print $o->asdf(1..10); # function cannot be found