| line |
true |
false |
branch |
|
77
|
307 |
2 |
if @_ |
|
86
|
278 |
41 |
if ($name =~ /^-?\d+$/) |
|
88
|
4 |
274 |
if $name < 0 |
|
93
|
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 | )
( \d+ (?: [.] \d+)* )
( (?: _ \d+ )? ) ) ( \s* ) $ /x |
|
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 |
|
213
|
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 |