My Perl Quiz

The ultimate place to learn Perl!

Question #45: What gets printed?

package A;
sub NEW { bless {}, shift }
sub AUTOLOAD { print ref(shift) }

package main;

my $obj = NEW A;

$obj->foo();