| blib/lib/Test2/Harness/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 26 | 76.9 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 2 | 2 | if $input =~ /^\+(.*)$/ |
| 32 | 1 | 1 | unless -f $file |
| 61 | 3 | 27 | unless open my $fh, $mode, $file |
| 67 | 3 | 7 | unless -f $file |
| 73 | 9 | 1 | if close $fh |
| 74 | 1 | 0 | unless $name |
| 86 | 0 | 1 | unless $ren_ok |
| 89 | 0 | 1 | unless $ok |
| 99 | 5 | 0 | if exists $ENV{$key} |
| 108 | 2 | 3 | if not defined $ENV{$key} xor not defined $env->{$key} |
| 109 | 1 | 2 | if defined $ENV{$key} and defined $env->{$key} and $ENV{$key} ne $env->{$key} |
| 111 | 2 | 0 | exists $old->{$key} ? : |
| 114 | 0 | 1 | unless $ok |