| blib/lib/Aion/Env.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 20 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 14 | 1 | 1 | scalar keys %kw == 1 ? : |
| 2 | 13 | if keys %kw | |
| 18 | 1 | 9 | unless exists $ENV{$name} or exists $env{$name} or $is_default |
| 23 | 4 | 8 | if $isa |
| 31 | 0 | 1 | unless open my $f, "<:utf8", $file |
| 39 | 1 | 1 | if $. == 1 |
| 40 | 0 | 2 | if /^\s*(?:#|$)/u |
| 42 | 2 | 0 | if (my($k, $v) = /^\s*([a-z_]\w*)\s*=\s*(.*?)\s*$/iu) { } |
| 43 | 0 | 2 | if ($v =~ s/^(['"])(.*)\1\z/$2/u) { } |
| 44 | 0 | 0 | if ($1 eq "\"") |