Select Code to Download

*mysub = sub : prototype(\@\@) ($left,$right) { ... };

use strict;
use warnings;
...
      ( array_numeq @left, @right ) ? "matches" : "doesn't match",
      " (@right)";
}

Array found where operator expected at mytest2.pl line 14, at end of l
+ine
    (Missing operator before ?)
...
Global symbol "$r" requires explicit package name at mytest2.pl line 1
+6.
Global symbol "$l" requires explicit package name at mytest2.pl line 1
+7.
BEGIN not safe after errors--compilation aborted at mytest2.pl line 17
+.

use strict;
use warnings;
...
      ( array_numeq @left, @right ) ? "matches" : "doesn't match",
      " (@right)";
}

my $subref = do{
  sub : prototype($) ($s) { return $s; };  # Perl thinks sub: is a lab
+el here.
};