| blib/lib/HTTP/Proxy/GreaseMonkey/Script.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 22 | 77.2 |
| line | true | false | branch |
|---|---|---|---|
| 37 | 0 | 6 | unless my(@stat) = CORE::stat $script_file |
| 40 | 0 | 6 | unless open my $sh, '<', $script_file |
| 46 | 6 | 0 | if ($script =~ m[^ \s* // \s+ ==UserScript== \s+ (.*?) ^ \s* // \s+==/UserScript== \s+ ]imsx) |
| 52 | 12 | 18 | if ($1 eq 'include' or $1 eq 'exclude') { } |
| 62 | 3 | 3 | unless $meta{'include'} |
| 79 | 7 | 7 | unless $$self{'meta'}{'exclude'} |
| 80 | 2 | 11 | if $uri =~ /$exc/ |
| 82 | 0 | 12 | unless $$self{'meta'}{'include'} |
| 83 | 11 | 4 | if $uri =~ /$inc/ |
| 157 | 0 | 27 | $_ eq '?' ? : |
| 21 | 27 | $_ eq '*' ? : |