# New Ticket Created by  Zoffix Znet 
# Please include the string:  [perl #130413]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=130413 >


    $ cat Foo.pm6 
    multi foo ($   ) is export { say "here"  }
    multi foo ($, $)           { say "there" }

    $ perl6 -I. -MFoo -e '.say for &foo.candidates'
    sub foo ($) { #`(Sub|64572824) ... }
    sub foo ($, $) { #`(Sub|64572976) ... }

My expectation is that only the candidate I marked for export would be 
exported. Especially since I know it's
possible to have different candidates visible in different scopes:

    $ cat Foo.pm6 
    multi foo ($   ) is export { say "here"  }
    multi foo ($, $)           { say "there" }
    .say for &foo.candidates
    
    $ perl6 -I. -MFoo -e 'multi foo ($, $, $) {}; say "----"; .say for 
&foo.candidates'
    sub foo ($) { #`(Sub|77538744) ... }
    sub foo ($, $) { #`(Sub|80610240) ... }
    ----
    sub foo ($) { #`(Sub|77538744) ... }
    sub foo ($, $) { #`(Sub|80610240) ... }
    sub foo ($, $, $) { #`(Sub|80617992) ... }

Reply via email to