| blib/lib/Polyglot.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 24 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 116 | 0 | 0 | unless @ARGV |
| 122 | 0 | 0 | if /^\s*#?$/ |
| 126 | 0 | 0 | if $Debug |
| 129 | 0 | 0 | if $Debug |
| 132 | 0 | 0 | unless exists $self->{$directive} |
| 136 | 0 | 0 | if $@ =~ /Undefined subroutine/ |
| 139 | 0 | 0 | if $ARGV eq '-' |
| 189 | 0 | 0 | if $Debug |
| 191 | 0 | 0 | unless exists $self->{$name} |
| 193 | 0 | 0 | unless defined $value |
| 253 | 0 | 0 | unless @_ |
| 257 | 0 | 0 | unless ($value eq 'on' or $value eq 'off') |