| blib/lib/Aion/Env.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 26 | 61.5 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 1 | 1 | scalar keys %kw == 1 ? : |
| 2 | 7 | if keys %kw | |
| 20 | 1 | 2 | unless exists $ENV{$name} or exists $env{$name} or $is_default |
| 25 | 4 | 2 | if ($isa) |
| 26 | 0 | 4 | if (UNIVERSAL::isa($isa, 'Aion::Type')) { } |
| 29 | 0 | 0 | UNIVERSAL::can($isa, 'get_message') ? : |
| 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 "\"") |