| blib/lib/Test/WriteVariants.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 11 | 28 | 39.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 243 | 3 | 0 | 0 | -d $output_dir and not $self->allow_dir_overwrite |
| 349 | 0 | 0 | 1 | ref $search_patterns and 'ARRAY' eq ref $search_patterns |
| 350 | 0 | 0 | 1 | ref $search_dirs and 'ARRAY' eq ref $search_dirs |
| 611 | 16 | 0 | 0 | -e $filepath and not $self->allow_file_overwrite |
| line | l | !l | condition |
|---|---|---|---|
| 135 | 0 | 4 | $slurper ||= sub { my $fn = shift(); croak("Can't open '${fn}': $!") unless open my $fh, '<', $fn; local $/; my $cnt = readline $fh; croak("Can't close file-handle for '${fn}': $!") unless close $fh; return $cnt; } |
| 294 | 0 | 1 | delete $args{'input_tests'} || {} |
| 342 | 0 | 1 | delete $args{'input_tests'} || {} |
| 348 | 1 | 0 | $search_patterns ||= ['*.it'] |
| 642 | 0 | 16 | $test_spec->{'prologue'} || "#!perl\n\n" |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 126 | 0 | 0 | 4 | $slurper ||= eval { do { &require_module('File::Slurper'); 'File::Slurper'->can('read_binary') } } |
| 265 | 3 | 0 | 0 | -d $output_dir or $self->allow_dir_overwrite |