Select Code to Download

  DB<108> sub nopro  { print @_ }

...
34567
  DB<112> pro(@a)
5

  DB<113> sub meth ($$) { print @_ }

...
main34567
  DB<115> main::meth('main',@a)
main5

sub meth {
  my ($self, $x_ax, $y_ax, $arr_ref, @opt) = @_;
}