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
|
35 |
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
|
30 |
2 |
if $_[0]->is_number
|
152
|
5 |
2 |
if $_[0]->is_number
|
154
|
5 |
38 |
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 |
60 |
unless defined $name
|
268
|
10 |
50 |
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 |
40 |
unless $module->is_module_name
|