Select Code to Download

sub enum (\@$$){
...
...
while ( enum @a => state $value, state $i ){
  print "enum: $i $value\n";
}

  DB<7> sub tst ($;$) {print scalar @_ }
 
  DB<8> tst(my($x,$y))
1

  DB<3> sub tst  {print scalar @_ }<P>

...
  DB<6> tst( my ($a,$b,$c,$d))
4