The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
1234567891011 # [[[ HEADER ]]]use RPerl;package RPerl::Test::SubroutineArguments::Package_04_Good;use strict;use warnings;our $VERSION = 0.001_000;# [[[ SUBROUTINES ]]]sub empty_sub { { my void $RETURN_TYPE }; ( my number $foo, my number $bar ) = @ARG; return 1; }1; # end of package
# [[[ HEADER ]]]
use
RPerl;
package
RPerl::Test::SubroutineArguments::Package_04_Good;
strict;
warnings;
our
$VERSION
= 0.001_000;
# [[[ SUBROUTINES ]]]
sub
empty_sub { {
my
void
$RETURN_TYPE
}; (
number
$foo
,
$bar
) =
@ARG
;
return
1; }
1;
# end of package