What gets printed?
package A;
sub NEW { bless {}, shift }
sub AUTOLOAD { print ref(shift) }
package main;
my $obj = NEW A;
$obj->foo();What gets printed?
package A;
sub NEW { bless {}, shift }
sub AUTOLOAD { print ref(shift) }
package main;
my $obj = NEW A;
$obj->foo();© 2017 QuizBucket.org