| line |
true |
false |
branch |
|
19
|
1 |
26 |
unless defined $size |
|
23
|
1 |
26 |
if (length $char > 1) |
|
31
|
6 |
21 |
if $size <= $len |
|
47
|
35 |
9 |
unless defined $trim_charset |
|
56
|
35 |
9 |
unless defined $trim_charset |
|
76
|
12 |
18 |
if $width <= 0 |
|
111
|
1051 |
2 |
if eval {
do {
require $_[0]->module2path
}
} |
|
122
|
1 |
2 |
unless ref $_[0] |
|
137
|
1 |
6 |
if $_[0] == 0 |
|
139
|
3 |
3 |
if ($_[0]->is_positive) { } |
|
140
|
1 |
2 |
abs $_[0] - int($_[0]) < 0.5 ? : |
|
144
|
1 |
2 |
abs $_[0] - int($_[0]) < 0.5 ? : |
|
151
|
29 |
2 |
if $_[0]->is_number |
|
152
|
5 |
2 |
if $_[0]->is_number |
|
154
|
5 |
37 |
unless $_[0]->is_number |
|
158
|
4 |
1 |
if $_[0]->is_integer |
|
159
|
4 |
1 |
if $_[0]->is_integer |
|
161
|
2 |
7 |
unless $_[0]->is_number |
|
164
|
2 |
5 |
if int($_[0]) - $_[0] != 0 |
|
186
|
1 |
14 |
if $grouping == 0 |
|
195
|
6 |
8 |
if defined $decimal |
|
224
|
0 |
0 |
$is_money ? : |
|
228
|
0 |
0 |
if ($$lconv{$key}) { } |
|
238
|
0 |
0 |
if $is_money |
|
251
|
3 |
4 |
if not $file =~ /\.pm$/ or 'File::Spec'->file_name_is_absolute($path) |
|
257
|
0 |
4 |
unless $module->is_module_name |
|
266
|
0 |
1076 |
unless defined $name |
|
268
|
10 |
1066 |
unless $name =~ qr/\A
[[:alpha:]_] # Must start with an alpha or _
[[:word:]]* # Then any number of alpha numerics or _
(?: :: [[:word:]]+ )* # Then optional ::word's
\z
/x |
|
282
|
4 |
1056 |
unless $module->is_module_name |