| blib/lib/App/optex/pingu/Picture.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 30 | 0.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 79 | 0 | 0 | 0 | $x and &all(sub { $x->[$_] eq $App::optex::pingu::Picture::b->[$_]; } , keys @$b) |
| 168 | 0 | 0 | 0 | $use_FB and $lo eq $hi |
| line | l | !l | condition |
|---|---|---|---|
| 71 | 0 | 0 | $opt{'format'} ||= "default" |
| 72 | 0 | 0 | $loader{$opt{'format'}} // die("$opt{'format'}: unknown format.\n") |
| 117 | 0 | 0 | ($spec =~ /($color_re)/u)[0] // "" |
| 118 | 0 | 0 | ($spec =~ /((?!$c1)$color_re)/u)[0] // "" |
| 122 | 0 | 0 | $element{$bit} // die("$spec -> $bit") |
| 127 | 0 | 0 | $ch x $n || 1 |
| 133 | 0 | 0 | $opt->{'x'} // 1 |
| 134 | 0 | 0 | $opt->{'y'} // 1 |
| 165 | 0 | 0 | $c //= 1 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 59 | 0 | 0 | 0 | $opt{'format'} ||= $1 |
| 119 | 0 | 0 | 0 | +(state $cache = {})->{$spec} //= do { if ($c1) { my $bit = $spec =~ s/(.)/int($1 eq $c1);/egru; $element{$bit} // die("$spec -> $bit"); } else { substr($spec, 0, 1); } } |