view release on metacpan or  search on metacpan

lib/Acme/Math/Josan.pm  view on Meta::CPAN

sub josan {
    my ($num1, $num2) = @_;

    return $num1 * $num2 if int rand(2) == 1;
    return $num1 / $num2;
}

1;

=encoding UTF-8

=head1 NAME

Acme::Math::Josan - do 'josan'

=head1 VERSION

Version 0.01

=head1 DESCRIPTION