Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more
1234567891011121314 # [[[ HEADER ]]]package RPerl::Test::SubroutineArguments::Package_06_Good;use strict;use warnings;use RPerl;our $VERSION = 0.001_000;# [[[ SUBROUTINES ]]]our void $empty_sub = sub { ( my number $foo, my number_arrayref $bar, my number_hashref $baz ) = @_; return 1;};1; # end of package
# [[[ HEADER ]]]
package
RPerl::Test::SubroutineArguments::Package_06_Good;
use
strict;
warnings;
RPerl;
our
$VERSION
= 0.001_000;
# [[[ SUBROUTINES ]]]
void
$empty_sub
=
sub
{
(
my
number
$foo
,
number_arrayref
$bar
number_hashref
$baz
) =
@_
;
return
1;
};
# end of package