Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more
123456789101112131415 # [[[ PREPROCESSOR ]]]# <<< PARSE_ERROR: 'ERROR ECOPAPL02' >>># <<< PARSE_ERROR: 'Misplaced _ in number' >>># [[[ HEADER ]]]use RPerl;package RPerl::Test::LiteralNumber::Package_00_Bad_02;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: 'Misplaced _ in number' >>>
# [[[ HEADER ]]]
use
RPerl;
package
RPerl::Test::LiteralNumber::Package_00_Bad_02;
strict;
warnings;
our
$VERSION
= 0.001_000;
# [[[ SUBROUTINES ]]]
sub
empty_sub { {
my
integer
$RETURN_TYPE
};
return
2_; }
1;
# end of package