| blib/lib/App/optex/mask.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 18 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 151 | 9 | 0 | if (defined(my $i = &first(sub { $argv->[$_] eq "--"; } , keys @$argv))) |
| 153 | 0 | 9 | unless shift @$argv eq "--" |
| 158 | 20 | 0 | unless $option{'debug'} |
| 160 | 0 | 0 | @_ ? : |
| 174 | 0 | 27 | unless state $f = $newtag{$option{'mode'}} |
| 182 | 0 | 9 | unless $option{'encode'} |
| 200 | 2 | 1 | unless ($option{'decode'}) |
| 207 | 0 | 1 | unless utf8::is_utf8($_) |
| 214 | 0 | 9 | unless exists $option{$k} |