| bin/untemplate | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 41 | 48 | 85.4 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 1 | 29 | unless GetOptions 'help', \my($help), 'color!', \my($color), '16', \my($sixteen), 'html!', \my($html), 'encoding=s', \my($encoding), 'partial!', \my($partial), 'shrink!', \my($shrink), 'strict!', \my($strict), 'unmangle=s', \ |
| 36 | 2 | 27 | if $help or $#ARGV < 1 |
| 41 | 9 | 18 | if ($html) { } |
| 9 | 9 | elsif ($color) { } | |
| 46 | 1 | 8 | $sixteen // 0 ? : |
| 50 | 0 | 27 | if try_load_class('YADA') |
| 63 | 9 | 17 | if $html |
| 69 | 0 | 0 | if (m[^https?://]ux) { } |
| 75 | 0 | 0 | unless @remote |
| 95 | 0 | 0 | unless $_[0]->has_error |
| 109 | 29 | 24 | if $shrink // 1 |
| 112 | 24 | 29 | if $strict // 0 |
| 115 | 2 | 51 | $encoding ? : |
| 1 | 52 | unless open my $fh, '<:' . ($encoding ? "encoding($encoding)" : 'utf8'), $file | |
| 132 | 191 | 4590 | if (@unmangle) |
| 136 | 2150 | 126 | unless HTML::Linear::Path::_isgroup($el->path->[-1], $attr) |
| 167 | 2818 | 301 | if $n == $m / scalar(@ARGV) |
| 169 | 27 | 3092 | if not $partial // 0 and scalar keys %file != scalar @ARGV |
| 173 | 2845 | 274 | if $flag |
| 175 | 250 | 24 | if (1 < scalar keys %file) |
| 176 | 90 | 160 | if ($html) { } |
| 184 | 180 | 320 | if ($html) { } |
| 189 | 160 | 160 | if ($color) { } |
| 200 | 90 | 160 | if ($html) { } |