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 |