package A; sub NEW { bless {}, shift } sub AUTOLOAD { print ref(shift) } package main; my $obj = NEW A; $obj->foo();
A
AA
Can't locate object method "foo" via package "A"
none of the above