yo-dawg-i-herd-you-liek-roles.p6

use v6;

my role App::Subcommander {
    my role OptionCanonicalizer {
        submethod BUILD(:&command) {
            say &command.perl;
            gather {
                say &command.perl;
            };
        }
    }

    my class DefaultOptionCanonicalizer does OptionCanonicalizer {
    }

    method run(@args) returns int {
        my $subcommand = self.can('go-bool')[0];
        my $canonicalizer = DefaultOptionCanonicalizer.new(:command($subcommand));
        return 0;
    }
}

my class App does App::Subcommander {
    method go-bool(Str $arg?, Bool :$flag, Str :$node) {}
}

App.new.run(['go-bool', '--noflag', '--node', 'value']);

=begin output

method go-bool (App: Str $arg?, Bool :flag($flag), Str :node($node), *%_) { #`(Method|140026856274400) ... }
Nil

=end output