use 5.014;

package C
{
	sub foo  { say "foo!" }
}

package main
{
	my $object = bless []=> 'C';
	$object->foo;
}