| blib/lib/Safe/World/Compartment.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 24 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 69 | 0 | 1 | unless defined $root |
| 84 | 1 | 0 | if $Opcode::VERSION > 1.04 |
| 115 | 0 | 1 | if ref $vars ne 'ARRAY' |
| 119 | 0 | 1 | unless keys %{"${pkg}::";} |
| 125 | 0 | 1 | unless $arg =~ /^[\$\@%*&]?\w[\w:]*$/ or $arg =~ /^\$\W\w?$/ |
| 128 | 1 | 0 | if ($var = $arg) =~ s/^(\W)// |
| 136 | 1 | 0 | $type eq '*' ? : |
| 0 | 1 | $type eq '%' ? : | |
| 0 | 1 | $type eq '@' ? : | |
| 0 | 1 | $type eq '$' ? : | |
| 0 | 1 | $type eq '&' ? : | |
| 0 | 1 | !$type ? : |