# 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

Reply via email to