| script/moku-pona | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 35 | 80 | 43.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 133 | 9 | 0 | 0 | $ENV{'XDG_DATA_HOME'} and -d $ENV{'XDG_DATA_HOME'} . "/moku-pona" |
| 134 | 0 | 9 | 0 | $ENV{'HOME'} and -d $ENV{'HOME'} . "/.local/moku-pona" |
| 135 | 0 | 9 | 0 | $ENV{'HOME'} and -d $ENV{'HOME'} . "/.moku-pona" |
| 136 | 9 | 0 | 0 | $ENV{'APPDATA'} and -d $ENV{'APPDATA'} . "/.moku-pona" |
| 137 | 9 | 0 | 0 | $ENV{'LOGDIR'} and -d $ENV{'LOGDIR'} . "/.moku-pona" |
| 140 | 0 | 9 | 0 | $ENV{'HOME'} and -d $ENV{'HOME'} . "/.local" |
| 185 | 4 | 0 | 13 | $host and $port |
| 206 | 0 | 0 | 0 | $scheme and $scheme eq "gemini" |
| 362 | 2 | 0 | 0 | @args and &none(sub { $line =~ /$_/u; } , @args) |
| 419 | 2 | 0 | 4 | @args and $i < @$site |
| 504 | 0 | 2 | 2 | $line =~ /^=> \S+ \d\d\d\d-\d\d-\d\d (.+)/u and not $sites{$1} |
| 511 | 0 | 1 | 1 | @deletes and not $confirm |
| 516 | 0 | 1 | 1 | $todo and not $confirm |
| line | l | !l | condition |
|---|---|---|---|
| 186 | 13 | 0 | $port //= 0 |
| 209 | 0 | 0 | $port //= 1965 |
| 254 | 12 | 0 | $scheme ||= "gopher" |
| 260 | 12 | 0 | $port || 70 |
| 270 | 0 | 0 | $path ||= "/" |
| 468 | 1 | 1 | shift() || !1 |
| 767 | 0 | 0 | shift @ARGV || 'help' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 251 | 0 | 12 | 0 | shift() || $url |
| 274 | 0 | 0 | 0 | $port ||= $tls ? 443 : 80 |
| 387 | 8 | 0 | 0 | $name ||= $uri |
| 592 | 12 | 0 | 0 | $name ||= $uri |
| 593 | 12 | 0 | 0 | @sites == 0 or grep {$_ eq $name;} @sites |
| 689 | 1 | 4 | 0 | $xpc->findnodes('//atom:entry', $root) || $root->findnodes('//item') |
| 692 | 2 | 5 | 0 | $xpc->findnodes('atom:title', $node) || $node->getChildrenByTagName('title') |
| 697 | 2 | 4 | 1 | $xpc->findnodes('atom:link', $node) || $node->getChildrenByTagName('link') |
| 700 | 2 | 4 | 0 | $link->getAttribute('href') || $link->textContent |