| line |
true |
false |
branch |
|
34
|
4 |
2 |
unless not defined $_[0] or $_[0] eq '' or "$_[0]" eq '1' |
|
44
|
3 |
9 |
unless defined $_[0] |
|
63
|
4 |
1 |
if defined $_[0] |
|
68
|
12 |
1 |
if defined $_[0] |
|
75
|
8 |
1 |
if defined $val |
|
86
|
1 |
2 |
if (not defined $nbr) { } |
|
|
1 |
1 |
elsif (not length $nbr) { } |
|
97
|
39 |
4 |
if defined $_[0] |
|
100
|
4 |
16 |
if (not defined $nbr) { } |
|
|
1 |
15 |
elsif (not length $nbr) { } |
|
117
|
3 |
1 |
if defined $_[0] |
|
123
|
2 |
0 |
if defined $_[0] |
|
128
|
0 |
0 |
if (my $params = shift()) |
|
139
|
24 |
1 |
if defined $_[0] |
|
144
|
0 |
0 |
if (my $params = shift()) |
|
155
|
36 |
3 |
if defined $_[0] |
|
160
|
0 |
0 |
if (my $params = shift()) |
|
171
|
5 |
0 |
if defined $_[0] |
|
176
|
2 |
0 |
if defined $_[0] |
|
181
|
2 |
0 |
if defined $_[0] |
|
193
|
2 |
0 |
unless defined $_[0] and &Scalar::Util::openhandle($_[0]) |
|
207
|
3 |
6 |
if defined $_[0] and blessed($_[0]) |
|
214
|
2 |
9 |
unless defined $instance |
|
215
|
2 |
7 |
unless blessed $instance |
|
217
|
2 |
5 |
scalar @missing_classes ? : |
|
221
|
2 |
4 |
unless defined $instance |
|
222
|
2 |
2 |
unless blessed $instance |
|
224
|
0 |
2 |
scalar @missing_classes > 1 ? : |
|
230
|
0 |
0 |
if (my $classes = shift()) |
|
231
|
0 |
0 |
if (@$classes == 1) { } |
|
|
0 |
0 |
elsif (@$classes > 1) { } |
|
240
|
0 |
0 |
scalar @missing_classes ? : |
|
252
|
1 |
4 |
unless defined $instance |
|
253
|
1 |
3 |
unless blessed $instance |
|
254
|
1 |
2 |
unless $instance->can('does') |
|
256
|
0 |
2 |
scalar @missing_roles ? : |
|
260
|
1 |
2 |
unless defined $instance |
|
261
|
1 |
1 |
unless blessed $instance |
|
262
|
1 |
0 |
unless $instance->can('does') |
|
264
|
0 |
0 |
scalar @missing_roles > 1 ? : |
|
270
|
0 |
0 |
if (my $roles = shift()) |
|
271
|
0 |
0 |
if (@$roles == 1) { } |
|
|
0 |
0 |
elsif (@$roles > 1) { } |
|
279
|
0 |
0 |
unless $instance->can('does') |
|
281
|
0 |
0 |
scalar @missing_roles ? : |
|
293
|
1 |
5 |
unless defined $instance |
|
294
|
1 |
4 |
unless blessed $instance |
|
296
|
1 |
3 |
scalar @missing_methods ? : |
|
300
|
1 |
2 |
unless defined $instance |
|
301
|
1 |
1 |
unless blessed $instance |
|
303
|
1 |
0 |
scalar @missing_methods > 1 ? : |
|
309
|
0 |
0 |
if (my $methods = shift()) |
|
319
|
1 |
8 |
unless defined $value |
|
329
|
0 |
0 |
if (my $possible_values = shift()) |
|
346
|
8 |
28 |
if eval {
do {
&$type($value);
1
}
} |
|
353
|
0 |
0 |
if (my $types = shift()) |