#lexical-methods-test.pl
use strict;
use warnings;
use 5.010;

use Foo;

my $obj = Foo->new;

# Look, we can call normal class methods:
$obj->foo;

# This will fail (which is why it's in an eval)
eval {
	$obj->bar;
	1;
} or do {
	print "Unable to call 'bar' on Foo object in this lexical scope\n";
};

{
	# Lexically allow method "bar" as a Foo method:
	use Bar;
	$obj->foo;
	$obj->bar;
}

# Out here, normal method calls still work
$obj->foo;

# Kaboom!
$obj->bar;