The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
123456789101112131415 # [[[ PREPROCESSOR ]]]# <<< PARSE_ERROR: 'ERROR ECOPAPL02' >>># <<< PARSE_ERROR: 'Bareword "_2" not allowed' >>># [[[ HEADER ]]]use RPerl;package RPerl::Test::LiteralNumber::Package_00_Bad_01;use strict;use warnings;our $VERSION = 0.001_000;# [[[ SUBROUTINES ]]]sub empty_sub { { my integer $RETURN_TYPE }; return _2; }1; # end of package
# [[[ PREPROCESSOR ]]]
# <<< PARSE_ERROR: 'ERROR ECOPAPL02' >>>
# <<< PARSE_ERROR: 'Bareword "_2" not allowed' >>>
# [[[ HEADER ]]]
use
RPerl;
package
RPerl::Test::LiteralNumber::Package_00_Bad_01;
strict;
warnings;
our
$VERSION
= 0.001_000;
# [[[ SUBROUTINES ]]]
sub
empty_sub { {
my
integer
$RETURN_TYPE
};
return
_2; }
1;
# end of package