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

##</code><code>##

use strict;
use Inline 'C';

$\ = "\n";

my $x;
BEGIN {
	my $n = 100;
	$x = eval 'sub {' . ('%Foo::;' x $n) . '}';
}

print refcount(*Foo::); # prints $n + 2

__END__
__C__
int refcount(SV* x) {
	return SvREFCNT(x);
}