# New Ticket Created by Moritz Lenz
# Please include the string: [perl #69388]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=69388 >
Program:
class B {
multi method B_method() {
say "in B::B_method";
}
}
my $obj = B.new();
say $obj.HOW.can($obj, 'B_method');
say "alive";
say $obj.^can('B_method');
say "alive";
Output:
__START__
alive
alive
__END__
Both say() lines with calls to 'can' don't even print the newlines.
Cheers,
Moritz