Branch Coverage

blib/lib/Perl/Version.pm
Criterion Covered Total %
branch 59 60 98.3


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