line |
true |
false |
branch |
77
|
307 |
2 |
if @_ |
86
|
278 |
41 |
if ($name =~ /^-?\d+$/) |
88
|
4 |
274 |
if $name < 0 |
92
|
2 |
39 |
unless exists $COMPONENT_NAME{lc $name} |
102
|
122 |
714 |
if ($num =~ / ^ 0 \d /x) |
113
|
3 |
304 |
if ($] >= 5.008001 and &Scalar::Util::isvstring($_[0])) |
122
|
1 |
303 |
unless $version =~ / ^ ( \s* ) (?^x: ( (?i: Revision: \s+ ) | v | )\n ( \d+ (?: [.] \d+)* )\n ( (?: _ \d+ )? ) ) ( \s* ) \$ / |
137
|
48 |
255 |
if (@parts == 1 and length $parts[0] >= 3) { } |
157
|
18 |
237 |
if (@lz and keys %le == 1) { } |
165
|
211 |
44 |
@parts ? : |
170
|
57 |
246 |
if (length $alp) { } |
171
|
0 |
57 |
unless $alp =~ / _ (\d+) /x |
212
|
41 |
223 |
if defined $$self{'alpha'} |
242
|
9 |
414 |
unless ref $other |
244
|
2 |
421 |
unless blessed $other and $other->isa('Perl::Version') |
247
|
3 |
418 |
if $rev |
256
|
55 |
1104 |
if (my $cmp = shift @this <=> shift @that) |
267
|
9 |
383 |
if (@_) { } |
270
|
3 |
6 |
if (ref $fields eq 'ARRAY') { } |
274
|
1 |
5 |
unless $fields |
292
|
1 |
386 |
unless defined $field |
294
|
95 |
291 |
if (lc $field eq 'alpha') { } |
295
|
34 |
61 |
if (@_) { } |
297
|
5 |
29 |
if ($alpha) { } |
312
|
61 |
229 |
if (@_) { } |
313
|
2 |
59 |
if ($field >= $fields) |
322
|
58 |
171 |
unless $field >= 0 and $field < $fields |
333
|
4 |
28 |
if (lc $field eq 'alpha') { } |
339
|
1 |
26 |
if $field < 0 or $field >= $fields |
357
|
1 |
1 |
unless ref $other |