My Perl Quiz

Question #44: What will be printed?
71% on 42 times asked

package A;
sub new { return bless {}, shift; }

package B;
use base 'A';

package main;

my $obj = B->new();

if ($obj->isa('A')) {
  print 'true';
} else {
  print 'false';         
}