| File: | bin/abuse_check |
| Coverage: | 33.3% |
| line | % | coverage | branch | |
|---|---|---|---|---|
| 22 | 50 | T | F | if (@ARGV) { } |
| 25 | 50 | T | F | unless my($safe_path) = $ARGV[0] =~ /\A([^\x00\r\n]+)\z/ |
| 27 | 100 | T | F | if $safe_path =~ m[(?:^|/)\.\.(?:/|$)] |
| 29 | 0 | T | F | unless &main::open(my $fh, "<:raw", $safe_path) |
| 38 | 0 | T | F | unless $raw and length $raw |
| 55 | 0 | T | F | if (@contacts) { } |