# New Ticket Created by Tim Nelson
# Please include the string: [perl #68066]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=68066 >
Rakudo version: latest on ins2 branch
Parrot version: parrot-1.4.0-6.fc10.i386
Test script:
------------------------------------------------------------
#!/usr/bin/perl6
role A {...}
role A {
has $.variable;
}
A.new();
------------------------------------------------------------
Output:
------------------------------------------------------------
$ perl6 foo/p6bug1.pl
Ambiguous dispatch to multi '_block20'. Ambiguous candidates had signatures:
:()
:()
in Main (foo/p6bug1.pl:9)
------------------------------------------------------------
Expected output: none
This is important because sometimes it's necessary to do things like:
role B { ... };
role A {
has B $b;
}
role B {
has A $a;
}
...and if the first one is missing, then the declaration of role A
complains it can't find B or something.
:)
---------------------------------------------------------------------
| Name: Tim Nelson | Because the Creator is, |
| E-mail: wayl...@wayland.id.au | I am |
---------------------------------------------------------------------
----BEGIN GEEK CODE BLOCK----
Version 3.12
GCS d+++ s+: a- C++$ U+++$ P+++$ L+++ E- W+ N+ w--- V-
PE(+) Y+>++ PGP->+++ R(+) !tv b++ DI++++ D G+ e++>++++ h! y-
-----END GEEK CODE BLOCK-----
