| line |
true |
false |
branch |
|
38
|
1 |
34 |
if ($opts_ref->{'n'} < 1) |
|
50
|
2 |
32 |
if ($opts{'version'}) |
|
55
|
2 |
30 |
if ($opts{'help'}) |
|
60
|
3 |
27 |
unless (@args) |
|
98
|
20 |
12 |
if ($token eq 'name' or $token eq 'male' or $token eq 'female') { } |
|
|
11 |
1 |
elsif ($token eq 'address') { } |
|
124
|
10 |
10 |
if (my $m = $map{$token}) |
|
126
|
0 |
10 |
unless $call = $word->can($m->[0]) |
|
138
|
3 |
4 |
if ($token eq "prefecture" or $token eq "city" or $token eq "town") |
|
141
|
0 |
7 |
unless $call |
|
153
|
21 |
10 |
if (not $token or $token eq "name") |
|
157
|
2 |
29 |
if ($word_type eq "address" and $token eq "romaji") |
|
161
|
3 |
26 |
if ($word_type eq "gender") |
|
166
|
2 |
24 |
unless $call |