| script/moku-pona | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 34 | 77 | 44.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 132 | 9 | 0 | 0 | $ENV{'XDG_DATA_HOME'} and -d $ENV{'XDG_DATA_HOME'} . '/moku-pona' |
| 133 | 0 | 9 | 0 | $ENV{'HOME'} and -d $ENV{'HOME'} . '/.local/moku-pona' |
| 134 | 0 | 9 | 0 | $ENV{'HOME'} and -d $ENV{'HOME'} . '/.moku-pona' |
| 135 | 9 | 0 | 0 | $ENV{'APPDATA'} and -d $ENV{'APPDATA'} . '/.moku-pona' |
| 136 | 9 | 0 | 0 | $ENV{'LOGDIR'} and -d $ENV{'LOGDIR'} . '/.moku-pona' |
| 139 | 0 | 9 | 0 | $ENV{'HOME'} and -d $ENV{'HOME'} . '/.local' |
| 184 | 3 | 0 | 11 | $host and $port |
| 205 | 0 | 0 | 0 | $scheme and $scheme eq 'gemini' |
| 408 | 2 | 0 | 4 | @args and $i < @$site |
| 493 | 0 | 2 | 2 | $line =~ /^=> \S+ \d\d\d\d-\d\d-\d\d (.+)/u and not $sites{$1} |
| 500 | 0 | 1 | 1 | @deletes and not $confirm |
| 505 | 0 | 1 | 1 | $todo and not $confirm |
| line | l | !l | condition |
|---|---|---|---|
| 185 | 11 | 0 | $port //= 0 |
| 208 | 0 | 0 | $port //= 1965 |
| 251 | 10 | 0 | $scheme ||= 'gopher' |
| 257 | 10 | 0 | $port || 70 |
| 267 | 0 | 0 | $path ||= '/' |
| 457 | 1 | 1 | shift() || !1 |
| 754 | 0 | 0 | shift @ARGV || 'help' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 248 | 0 | 10 | 0 | shift() || $url |
| 271 | 0 | 0 | 0 | $port ||= $tls ? 443 : 80 |
| 376 | 8 | 0 | 0 | $name ||= $uri |
| 580 | 10 | 0 | 0 | $name ||= $uri |
| 581 | 10 | 0 | 0 | @sites == 0 or grep {$_ eq $name;} @sites |
| 677 | 1 | 4 | 0 | $xpc->findnodes('//atom:entry', $root) || $root->findnodes('//item') |
| 680 | 2 | 5 | 0 | $xpc->findnodes('atom:title', $node) || $node->getChildrenByTagName('title') |
| 684 | 2 | 4 | 1 | $xpc->findnodes('atom:link', $node) || $node->getChildrenByTagName('link') |
| 687 | 2 | 4 | 0 | $link->getAttribute('href') || $link->textContent |