My Perl Quiz

The ultimate place to learn Perl!

Question #44: What will be printed?

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';         
}