123456789101112131415161718 # [[[ PREPROCESSOR ]]]# <<< COMPILE_ERROR: 'ERROR ECVPAPL02' >>># <<< COMPILE_ERROR: 'near "@_;"' >>># [[[ HEADER ]]]package RPerl::Test::SubroutineArguments::Package_05_Bad;use strict;use warnings;use RPerl;our $VERSION = 0.001_000;# [[[ SUBROUTINES ]]]our void $empty_sub = sub { ( my number $foo, my string $bar = @_; return 1;};1; # end of package
# [[[ PREPROCESSOR ]]]
# <<< COMPILE_ERROR: 'ERROR ECVPAPL02' >>>
# <<< COMPILE_ERROR: 'near "@_;"' >>>
# [[[ HEADER ]]]
package
RPerl::Test::SubroutineArguments::Package_05_Bad;
use
strict;
warnings;
RPerl;
our
$VERSION
= 0.001_000;
# [[[ SUBROUTINES ]]]
void
$empty_sub
=
sub
{
(
my
number
$foo
,
string
$bar
@_
;
return
1;
};
# end of package