| line |
true |
false |
branch |
|
60
|
0 |
17878 |
unless ($arg{'text'}) |
|
65
|
27 |
17851 |
unless ref $arg{'text'} |
|
68
|
1 |
17877 |
if "HASH" eq ref $arg{'locale'} |
|
75
|
0 |
35778 |
unless ("HASH" eq ref $source) |
|
79
|
17893 |
17885 |
unless my $data = $source->{$lc} |
|
83
|
0 |
33846 |
unless (my $code = $deref{ref $data}) |
|
91
|
14303 |
19543 |
unless ($data) = &$code($data, $key, $arg{'argument'}) |
|
94
|
3556 |
26 |
unless wantarray |
|
99
|
14297 |
25 |
unless wantarray |
|
151
|
1 |
23 |
if instance($msg, "Template::Exception") |
|
159
|
0 |
23 |
if "CODE" eq ref $lcl |
|
162
|
23 |
0 |
unless $lcl =~ / \[ % /msx |
|
180
|
0 |
1 |
if / \n \z /msx |
|
183
|
1 |
0 |
unless / [.?|] \z /msx |
|
192
|
1 |
1 |
wantarray ? : |
|
203
|
1 |
1 |
unless s/ ( [^_-]+ ) [_-] (.* ) /\L$1_\E\U$2\E/msx |
|
205
|
0 |
2 |
if "c" eq $_ |
|
210
|
6 |
0 |
unless grep {"C" eq $_;} @lang |
|
220
|
0 |
3 |
unless defined(my $path = expand_tilde("~~/locale/$lc.pm")) |
|
225
|
1 |
2 |
if $data = do $path and "HASH" eq ref $data |
|
236
|
6 |
2 |
if $data = eval "require $mod_name" and "HASH" eq ref $data |