line |
true |
false |
branch |
27
|
25 |
14 |
if ($word =~ /[aeiou]$/) { } |
|
4 |
10 |
elsif ($word =~ /n$/) { } |
30
|
29 |
10 |
if $number % $div |
37
|
116 |
163 |
if $number < 20 |
39
|
69 |
94 |
if ($number < 100) |
41
|
58 |
11 |
if $number % 10 |
44
|
55 |
39 |
if ($number < 1000) |
46
|
38 |
17 |
$word =~ /[aeiou]$/ ? : |
47
|
38 |
17 |
if $number % 100 |
51
|
27 |
12 |
if $number < 1000000 |
52
|
12 |
0 |
if $number < 1000000000 |
58
|
0 |
118 |
if $number < 1 or $number > 999999999 |
66
|
1 |
14 |
if 1 == $number |
67
|
1 |
13 |
if 2 == $number |
68
|
1 |
12 |
if 3 == $number |
70
|
0 |
12 |
unless my $word = num2tl($number) |
73
|
4 |
8 |
if $word =~ /^[aeiou]/ |
81
|
1 |
14 |
if 1 == $number |
82
|
1 |
13 |
if 2 == $number |
83
|
1 |
12 |
if 3 == $number |
85
|
0 |
12 |
unless my $word = num2tl($number) |
88
|
4 |
8 |
if ($word =~ /^[aieou]/) { } |
|
1 |
7 |
elsif ($word =~ /^w/) { } |
|
6 |
1 |
elsif ($word =~ /^[dtls]/) { } |
|
1 |
0 |
elsif ($word =~ /^p/) { } |
105
|
17 |
43 |
if exists $options{$key} |
108
|
15 |
15 |
$opts{'ika'} ? : |
111
|
2 |
28 |
if $opts{'hypen'} |