our
$VERSION
= 0.001_000;
our
@EXPORT_OK
=
qw(multiply_return_FG)
;
sub
multiply_return_FG { {
my
number
$RETURN_TYPE
}; (
my
integer
$multiplicand
,
my
number
$multiplier
) =
@ARG
;
return
$multiplicand
*
$multiplier
; }
1;
our
$VERSION
= 0.001_000;
our
@EXPORT_OK
=
qw(multiply_return_FG multiply_return_F)
;
INIT { RPerl::Test::Exporter::Package_FG_Exporter_Importer_00_Good->
import
(
qw(multiply_return_FG)
); }
sub
multiply_return_F { {
my
number
$RETURN_TYPE
}; (
my
integer
$multiplicand
,
my
number
$multiplier
) =
@ARG
;
return
$multiplicand
*
$multiplier
; }
1;
our
$VERSION
= 0.001_000;
INIT { RPerl::Test::Exporter::Package_F_Exporter_Importer_00_Good->
import
(
qw(multiply_return_FG multiply_return_F)
); }
sub
multiply_return_G { {
my
number
$RETURN_TYPE
}; (
my
integer
$multiplicand
,
my
number
$multiplier
) =
@ARG
;
return
$multiplicand
*
$multiplier
; }
1;