| line | % | coverage | branch |
|---|
| 154 | 100 | T | F | unless $args{'schema'} |
| 155 | 100 | T | F | unless $args{'target_sub'} |
| 178 | 50 | T | F | eval {
do {
require Devel::Cover;
1
}
} ? : |
| 182 | 0 | T | F | unless ($self->{'_cover_available'} or $cover_warned++) |
| 240 | 100 | T | F | if (@{$self->{'corpus'};} and rand() < $CORPUS_MUTATE_RATIO) { } |
| 343 | 100 | T | F | unless defined $path |
| 347 | 100 | T | F | unless open my $fh, ">", $path |
| 403 | 100 | T | F | unless defined $path |
| 407 | 100 | T | F | unless open my $fh, "<", $path |
| 446 | 50 | T | F | if $ok |
| 476 | 50 | T | F | if ($self->{'_cover_available'}) { } |
| 483 | 0 | T | F | defined $self->{'instance'} ? : |
| 492 | 0 | T | F | if $@ |
| 495 | 0 | T | F | if (not defined $error and @warnings) |
| 497 | 0 | T | F | if $w =~ /uninitialized|undefined|blessed|invalid/i |
| 504 | 100 | T | F | if ($error and $self->_input_is_valid($input)) |
| 510 | 100 | T | F | if ($self->_is_interesting($coverage)) |
| 542 | 50 | T | F | if "Devel::Cover"->can("start") |
| 548 | 100 | T | F | defined $self->{'instance'} ? : |
| 555 | 100 | T | F | if $@ |
| 558 | 50 | T | F | if "Devel::Cover"->can("stop") |
| 563 | 0 | T | F | unless exists $before{$key} |
| 591 | 50 | T | F | unless $cover |
| 594 | 0 | T | F | unless my $branch = $cover->{$file}{'branch'} |
| 598 | 0 | T | F | if $branch->{$line}[$b] |
| 629 | 100 | T | F | unless $self->{'covered'}{$key} |
| 633 | 100 | T | F | unless %{$coverage;} |
| 690 | 100 | T | F | unless defined $spec |
| 691 | 100 | T | F | if $spec eq "undef" |
| 693 | 50 | T | F | ref $spec ? : |
| 696 | 100 | T | F | if (ref $spec and $spec->{'edge_case_array'} and rand() < $EDGE_CASE_RATIO) |
| 702 | 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) { } |
| 728 | 100 | T | F | if (rand() < $INT_BOUNDARY_RATIO) |
| 777 | 100 | T | F | if (rand() < $STR_BOUNDARY_RATIO) { } |
| 785 | 50 | T | F | if $len < 0 |
| 854 | 100 | T | F | unless defined $spec and ref $spec |
| 858 | 100 | T | F | if ($input_style eq "hash" or ref $input eq "HASH") |
| 879 | 100 | T | F | unless defined $input |
| 883 | 100 | T | F | if $key =~ /^_/ |
| 886 | 50 | T | F | unless ref $field_spec eq "HASH" |
| 888 | 50 | T | F | ref $input eq 'HASH' ? : |
| 891 | 100 | T | F | unless (defined $value or $field_spec->{'optional'}) |
| 895 | 100 | T | F | unless defined $value |
| 897 | 100 | T | F | unless $self->_validate_value($value, $field_spec) |
| 923 | 100 | T | F | unless defined $value |
| 927 | 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') { } |
| 928 | 100 | T | F | unless $value =~ /^-?\d+$/ |
| 929 | 100 | T | F | if defined $spec->{'min'} and $value < $spec->{'min'} |
| 930 | 100 | T | F | if defined $spec->{'max'} and $value > $spec->{'max'} |
| 934 | 100 | T | F | unless $value =~ /^-?(?:\d+\.?\d*|\.\d+)(?:[eE][+-]?\d+)?$/ |
| 935 | 50 | T | F | if defined $spec->{'min'} and $value < $spec->{'min'} |
| 936 | 50 | T | F | if defined $spec->{'max'} and $value > $spec->{'max'} |
| 940 | 100 | T | F | if defined $spec->{'min'} and $len < $spec->{'min'} |
| 941 | 100 | T | F | if defined $spec->{'max'} and $len > $spec->{'max'} |
| 942 | 100 | T | F | if (defined $spec->{'matches'}) |
| 944 | 100 | T | F | unless $value =~ /$pat/ |
| 948 | 100 | T | F | unless $value =~ /^[01]$/ |
| 951 | 100 | T | F | unless ref $value eq "ARRAY" |
| 954 | 100 | T | F | unless ref $value eq "HASH" |
| 979 | 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') { } |
| 985 | 100 | T | F | if ($input =~ /^-?\d+$/) { } |
| 100 | T | F | elsif ($input =~ /^-?[\d.]+$/) { } |
| 1021 | 100 | T | F | $n == 0 ? : |
| 1075 | 50 | T | F | unless $len |
| 1090 | 100 | T | F | unless $len |
| 1133 | 50 | T | F | unless @copy |
| 1140 | 100 | T | F | unless @copy |
| 1147 | 100 | T | F | unless @copy |
| 1175 | 100 | T | F | unless @keys |