Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

35 lines (25 sloc) 0.462 kB
#! 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( $abc.HOW.isa($abc, XYZ) ?? 'not ok 6' !! 'ok 6' );
Jump to Line
Something went wrong with that request. Please try again.