Permalink
Fetching contributors…
Cannot retrieve contributors at this time
35 lines (25 sloc) 461 Bytes
#! nqp
# class inheritance
plan(6);
class ABC {
method foo() {
say('ok 1');
}
method bar() {
say('ok 3');
}
}
class XYZ is ABC {
method foo() {
say('ok 2');
}
}
my $abc := ABC.new();
my $xyz := XYZ.new();
$abc.foo();
$xyz.foo();
$xyz.bar();
my $xyzhow := $xyz.HOW;
if $xyzhow.isa($xyz, ABC) { say('ok 4') }
if $xyzhow.isa($xyz, XYZ) { say('ok 5') }
say( $xyzhow.isa($abc, XYZ) ?? 'not ok 6' !! 'ok 6' );