Skip to content

Instantly share code, notes, and snippets.

@peschwa
Created November 12, 2015 19:36
Show Gist options
  • Save peschwa/c17cb7ebb9692f5783d5 to your computer and use it in GitHub Desktop.
Save peschwa/c17cb7ebb9692f5783d5 to your computer and use it in GitHub Desktop.
$ cat diag.pl6
use nqp;
use Test;
my &f = Range.^can('new')[0];
my \disp_order := nqp::getattr(nqp::decont(&f), Routine, q[$!dispatch_order]);
my $iter := nqp::iterator(disp_order);
while $iter {
my \info := nqp::atkey(nqp::decont(nqp::shift($iter)), 'signature');
say info;
}
psch@hack:~/rakudo/rakudo/install/bin$ ./perl6-m diag.pl6
(Mu $: *%)
(Range $: Whatever \min, Whatever \max, :$excludes-min, :$excludes-max, *%_)
(Range $: Real \min, $max, :$excludes-min, :$excludes-max, *%_)
(Mu)
(Range $: Range $min, \max, :$excludes-min, :$excludes-max, *%_)
(Range $: \min, Range $max, :$excludes-min, :$excludes-max, *%_)
(Range $: Seq \min, \max, :$excludes-min, :$excludes-max, *%_)
(Range $: \min, Seq \max, :$excludes-min, :$excludes-max, *%_)
(Range $: Whatever \min, \max, :$excludes-min, :$excludes-max, *%_)
(Range $: \min, Whatever \max, :$excludes-min, :$excludes-max, *%_)
(Range $: Real \min, $max, :$excludes-min, :$excludes-max, *%_)
(Range $: List:D \min, \max, :$excludes-min, :$excludes-max, *%_)
(Mu)
(Range $: Complex \min, \max, :$excludes-min, :$excludes-max, *%_)
(Range $: \min, Complex \max, :$excludes-min, :$excludes-max, *%_)
(Range $: Match:D \min, \max, :$excludes-min, :$excludes-max, *%_)
(Range $: \min, \max, :$excludes-min, :$excludes-max!, *%_)
(Range $: \min, \max, :$excludes-min!, :$excludes-max, *%_)
(Mu)
(Range $: \min, \max, *%_)
(Mu)
(Mu $:, *@, *%_)
(Mu)
(Mu)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment