use poly;

my $a = new Object;
my $b = new Derived;

my $c = $a->self;
my $d = $b->self;

print "a is a " . $a->classname . "/" . $a->perlclass . "\n";
print "b is a " . $b->classname . "/" . $b->perlclass . "\n";
print "c is a " . $c->classname . "/" . $c->perlclass . "\n";
print "d is a " . $d->classname . "/" . $d->perlclass . "\n";


package Object;
sub perlclass { "perl-object"; }

package Derived;
sub perlclass { "perl-derived"; }