| blib/lib/Aion/Env.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 24 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 1 | 1 | scalar keys %kw == 1 ? : |
| 2 | 5 | if keys %kw | |
| 20 | 1 | 1 | unless exists $ENV{$name} or exists $env{$name} or $is_default |
| 25 | 4 | 0 | if ($isa) |
| 26 | 0 | 4 | if (UNIVERSAL::can($isa, 'validate')) { } |
| 29 | 0 | 4 | unless &$isa() |
| 39 | 0 | 1 | unless open my $f, "<:utf8", $file |
| 47 | 1 | 1 | if $. == 1 |
| 48 | 0 | 2 | if /^\s*(?:#|$)/u |
| 50 | 2 | 0 | if (my($k, $v) = /^\s*([a-z_]\w*)\s*=\s*(.*?)\s*$/iu) { } |
| 51 | 0 | 2 | if ($v =~ s/^(['"])(.*)\1\z/$2/u) { } |
| 52 | 0 | 0 | if ($1 eq "\"") |