| line |
true |
false |
branch |
|
80
|
425 |
2 |
if @_
|
|
89
|
308 |
41 |
if ($name =~ /^-?\d+$/)
|
|
91
|
4 |
304 |
if $name < 0
|
|
96
|
2 |
39 |
unless exists $COMPONENT_NAME{lc $name}
|
|
105
|
247 |
924 |
if ($num =~ / ^ 0 \d /x)
|
|
116
|
3 |
422 |
if ($] >= "5.008001" and &Scalar::Util::isvstring($_[0]))
|
|
125
|
1 |
421 |
unless $version =~ / ^ ( \s* ) (?^x: ( (?i: Revision: \s+ ) | v | )
|
|
148
|
98 |
323 |
if (@parts == 1 and length $parts[0] >= 3) { }
|
|
168
|
18 |
305 |
if (@lz and keys %le == 1) { }
|
|
176
|
279 |
44 |
@parts ? :
|
|
181
|
88 |
333 |
if (length $alp) { }
|
|
182
|
0 |
88 |
unless $alp =~ / _ (\d+) /x
|
|
224
|
126 |
470 |
if defined $self->{'alpha'}
|
|
253
|
10 |
416 |
unless ref $other
|
|
255
|
2 |
424 |
unless builtin::blessed($other) and $other->isa(__PACKAGE__)
|
|
258
|
3 |
421 |
if $rev
|
|
267
|
56 |
1110 |
if (my $cmp = shift @this <=> shift @that)
|
|
278
|
30 |
452 |
if (@_) { }
|
|
281
|
24 |
6 |
if (ref $fields eq 'ARRAY') { }
|
|
285
|
1 |
5 |
unless $fields
|
|
303
|
1 |
462 |
unless defined $field
|
|
305
|
151 |
311 |
if (lc $field eq 'alpha') { }
|
|
306
|
67 |
84 |
if (@_) { }
|
|
308
|
9 |
58 |
if ($alpha) { }
|
|
323
|
71 |
239 |
if (@_) { }
|
|
324
|
2 |
69 |
if ($field >= $fields)
|
|
333
|
58 |
181 |
unless $field >= 0 and $field < $fields
|
|
344
|
6 |
38 |
if (lc $field eq 'alpha') { }
|
|
350
|
1 |
36 |
if $field < 0 or $field >= $fields
|
|
368
|
1 |
22 |
unless ref $other
|