| bin/xpathify | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 30 | 34 | 88.2 |
| line | true | false | branch |
|---|---|---|---|
| 22 | 1 | 30 | unless GetOptions 'help', \my($help), 'color!', \my($color), '16', \my($sixteen), 'html!', \my($html), 'encoding=s', \my($encoding), 'shrink!', \my($shrink), 'strict!', \my($strict), 'weight!', \my($weight) |
| 32 | 2 | 28 | if $help or $#ARGV != 0 |
| 38 | 8 | 20 | if ($html) { } |
| 10 | 10 | elsif ($color) { } | |
| 43 | 2 | 8 | $sixteen // 0 ? : |
| 49 | 16 | 12 | if $shrink // 1 |
| 52 | 12 | 16 | if $strict // 0 |
| 55 | 1 | 27 | $encoding ? : |
| 56 | 0 | 28 | if ($ARGV[0] =~ m[^https?://]ux) { } |
| 0 | 28 | elsif ($ARGV[0] eq '-') { } | |
| 58 | 0 | 0 | unless $$res{'success'} |
| 64 | 1 | 27 | unless open my $fh, '<' . $encoding_layer, $ARGV[0] |
| 72 | 8 | 19 | if $html |
| 81 | 8 | 29 | if ($html) { } |
| 9 | 20 | elsif ($color) { } | |
| 91 | 12 | 25 | if $weight |
| 93 | 8 | 29 | if ($html) { } |