Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…
Cannot retrieve contributors at this time
30 lines (19 sloc) 483 Bytes
use v6;
use Test;
plan 3;
=begin pod
Roles with names containing double colons and doing of them.
=end pod
role A::B {
method foo { "Foo" }
#?rakudo todo 'nom regression'
#?pugs todo
is(A::B.WHAT.gist, 'B()', 'A::B.WHAT stringifies to short name B');
class X does A::B {
class X::Y does A::B {
is(, 'Foo', 'Composing namespaced role to non-namespaced class');
is(, 'Foo', 'Composing namespaced role to namespaced class');
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.