File Coverage

blib/lib/Acme/Math/Josan.pm
Criterion Covered Total %
statement 14 14 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 22 22 100.0


line stmt bran cond sub pod time code
1             package Acme::Math::Josan;
2              
3 1     1   45157 use 5.006;
  1         3  
4 1     1   10 use strict;
  1         3  
  1         31  
5 1     1   5 use warnings;
  1         2  
  1         28  
6              
7 1     1   4 use Exporter 'import';
  1         2  
  1         119  
8              
9             our $VERSION = '0.01';
10             our @EXPORT = qw/josan/;
11              
12             sub josan {
13 100001     100001 1 244612 my ($num1, $num2) = @_;
14              
15 100001 100       159562 return $num1 * $num2 if int rand(2) == 1;
16 49956         73817 return $num1 / $num2;
17             }
18              
19             1;
20              
21             =encoding UTF-8
22              
23             =head1 NAME
24              
25             Acme::Math::Josan - do 'josan'
26              
27             =head1 VERSION
28              
29             Version 0.01
30              
31             =head1 DESCRIPTION
32              
33             Do josan (B<乗算> = Multiplication) or josan (B<除算> = Division ).
34              
35             =head1 SYNOPSIS
36              
37             use Acme::Math::Josan;
38             my $result = josan(12, 4);
39             # $result is 3 or 48.
40              
41             =head1 METHODS
42              
43             =head2 josan($num1, $num2)
44              
45             C<$num1> and C<$num2> is numeric.
46              
47             =head1 AUTHOR
48              
49             Nao Muto
50              
51             =cut