DB<318> $code = sub { my $a ** $b ** $bla::c }

  DB<319> x peek_sub($code)
0  HASH(0x3d161a8)
   '$a' => SCALAR(0x3d18da0)
      -> undef
  DB<320>