My Perl Quiz

Question #21: What will be printed by the following code?
51% on 313 times asked

package A;

sub new { return bless {}; }
sub foo { return 'A'; }


package B;
use base 'A';

sub foo { return 'B'; }


package main;

my $obj = B->new();

print $obj->foo(), "\n";