| line | % | coverage | branch |
|---|
| 213 | 100 | T | F | unless $args{'schema'} |
| 214 | 100 | T | F | unless $args{'target_sub'} |
| 238 | 50 | T | F | eval {
do {
require Devel::Cover;
1
}
} ? : |
| 242 | 0 | T | F | unless ($self->{'_cover_available'} or $cover_warned++) |
| 337 | 100 | T | F | if (@{$self->{'corpus'};} and rand() < $CORPUS_MUTATE_RATIO) { } |
| 477 | 100 | T | F | unless defined $path |
| 481 | 100 | T | F | unless open my $fh, ">", $path |
| 567 | 100 | T | F | unless defined $path |
| 571 | 100 | T | F | unless open my $fh, "<", $path |
| 668 | 100 | T | F | if ($n > $best_n) |
| 674 | 50 | T | F | unless $best_n |
| 687 | 100 | T | F | if $seen{$key}++ |
| 698 | 100 | T | F | unless ($kept{$key}++) |
| 730 | 100 | T | F | unless defined $val |
| 732 | 100 | T | F | unless ($encoder) |
| 757 | 100 | T | F | if defined $cached |
| 763 | 50 | T | F | if (eval {
do {
require $file;
1
}
}) |
| 795 | 50 | T | F | if ($self->{'_cover_available'}) { } |
| 802 | 0 | T | F | defined $self->{'instance'} ? : |
| 813 | 0 | T | F | if $self->{'timeout'} |
| 816 | 0 | T | F | if $self->{'timeout'} |
| 817 | 0 | T | F | if $@ |
| 820 | 0 | T | F | if (not defined $error and @warnings) |
| 822 | 0 | T | F | if $w =~ /uninitialized|undefined|blessed|invalid/i |
| 829 | 100 | T | F | if ($error and $self->_input_is_valid($input)) |
| 835 | 100 | T | F | if ($self->_is_interesting($coverage)) |
| 871 | 50 | T | F | if "Devel::Cover"->can("start") |
| 878 | 100 | T | F | defined $self->{'instance'} ? : |
| 886 | 100 | T | F | if $self->{'timeout'} |
| 889 | 100 | T | F | if $self->{'timeout'} |
| 890 | 100 | T | F | if $@ |
| 894 | 50 | T | F | if "Devel::Cover"->can("stop") |
| 899 | 0 | T | F | unless exists $before{$key} |
| 927 | 50 | T | F | unless $cover |
| 930 | 0 | T | F | unless my $branch = $cover->{$file}{'branch'} |
| 934 | 0 | T | F | if $branch->{$line}[$b] |
| 965 | 100 | T | F | unless $self->{'covered'}{$key} |
| 969 | 100 | T | F | unless %{$coverage;} |
| 1026 | 100 | T | F | unless defined $spec |
| 1027 | 100 | T | F | if $spec eq "undef" |
| 1029 | 50 | T | F | ref $spec ? : |
| 1032 | 100 | T | F | if (ref $spec and $spec->{'edge_case_array'} and rand() < $EDGE_CASE_RATIO) |
| 1038 | 100 | T | F | if ($type eq $TYPE_INTEGER) { } |
| 50 | T | F | elsif ($type eq $TYPE_NUMBER) { } |
| 100 | T | F | elsif ($type eq $TYPE_BOOLEAN) { } |
| 100 | T | F | elsif ($type eq $TYPE_ARRAY) { } |
| 100 | T | F | elsif ($type eq $TYPE_HASH) { } |
| 1064 | 100 | T | F | if (rand() < $INT_BOUNDARY_RATIO) |
| 1113 | 100 | T | F | if (rand() < $STR_BOUNDARY_RATIO) { } |
| 1121 | 50 | T | F | if $len < 0 |
| 1189 | 100 | T | F | unless defined $spec and ref $spec |
| 1193 | 100 | T | F | if ($input_style eq "hash" or ref $input eq "HASH") |
| 1214 | 100 | T | F | unless defined $input |
| 1218 | 100 | T | F | if $key =~ /^_/ |
| 1221 | 50 | T | F | unless ref $field_spec eq "HASH" |
| 1223 | 50 | T | F | ref $input eq 'HASH' ? : |
| 1226 | 100 | T | F | unless (defined $value or $field_spec->{'optional'}) |
| 1230 | 100 | T | F | unless defined $value |
| 1232 | 100 | T | F | unless $self->_validate_value($value, $field_spec) |
| 1258 | 100 | T | F | unless defined $value |
| 1262 | 100 | T | F | if ($type eq $TYPE_INTEGER) { } |
| 100 | T | F | elsif ($type eq $TYPE_NUMBER) { } |
| 100 | T | F | elsif ($type eq $TYPE_STRING) { } |
| 100 | T | F | elsif ($type eq $TYPE_BOOLEAN) { } |
| 100 | T | F | elsif ($type eq $TYPE_ARRAY or $type eq 'array') { } |
| 50 | T | F | elsif ($type eq $TYPE_HASH or $type eq 'hash') { } |
| 1263 | 100 | T | F | unless $value =~ /^-?\d+$/ |
| 1264 | 100 | T | F | if defined $spec->{'min'} and $value < $spec->{'min'} |
| 1265 | 100 | T | F | if defined $spec->{'max'} and $value > $spec->{'max'} |
| 1269 | 100 | T | F | unless $value =~ /^-?(?:\d+\.?\d*|\.\d+)(?:[eE][+-]?\d+)?$/ |
| 1270 | 50 | T | F | if defined $spec->{'min'} and $value < $spec->{'min'} |
| 1271 | 50 | T | F | if defined $spec->{'max'} and $value > $spec->{'max'} |
| 1275 | 100 | T | F | if defined $spec->{'min'} and $len < $spec->{'min'} |
| 1276 | 100 | T | F | if defined $spec->{'max'} and $len > $spec->{'max'} |
| 1277 | 100 | T | F | if (defined $spec->{'matches'}) |
| 1293 | 100 | T | F | unless $matched |
| 1297 | 100 | T | F | unless $value =~ /^[01]$/ |
| 1300 | 100 | T | F | unless ref $value eq "ARRAY" |
| 1303 | 100 | T | F | unless ref $value eq "HASH" |
| 1328 | 100 | T | F | if (not defined $input) { } |
| 100 | T | F | elsif (not $type) { } |
| 100 | T | F | elsif ($type eq 'ARRAY') { } |
| 100 | T | F | elsif ($type eq 'HASH') { } |
| 1334 | 100 | T | F | if ($input =~ /^-?\d+$/) { } |
| 100 | T | F | elsif ($input =~ /^-?[\d.]+$/) { } |
| 1366 | 100 | T | F | if $op == 0 |
| 1367 | 100 | T | F | if $op == 1 |
| 1368 | 100 | T | F | if $op == 2 |
| 1369 | 100 | T | F | $n == 0 ? : |
| 100 | T | F | if $op == 3 |
| 1370 | 100 | T | F | if $op == 4 |
| 1371 | 100 | T | F | if $op == 5 |
| 1372 | 100 | T | F | if $op == 6 |
| 1389 | 50 | T | F | if $op == 0 |
| 1390 | 100 | T | F | if $op == 1 |
| 1391 | 100 | T | F | if $op == 2 |
| 1392 | 50 | T | F | if $op == 3 |
| 1416 | 100 | T | F | unless $len |
| 1431 | 100 | T | F | unless $len |
| 1465 | 50 | T | F | unless @copy |
| 1472 | 100 | T | F | unless @copy |
| 1479 | 100 | T | F | unless @copy |
| 1507 | 100 | T | F | unless @keys |