| blib/lib/Email/Filter/Rules.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 22 | 95.4 |
| line | true | false | branch |
|---|---|---|---|
| 10 | 1 | 6 | unless $args{'rules'} |
| 15 | 1 | 5 | if (not $args{'rules'} =~ /\n/s and -e $args{'rules'}) { } |
| 4 | 1 | elsif (ref $args{'rules'} eq 'ARRAY') { } | |
| 16 | 0 | 1 | unless open my $fh, '<', $args{'rules'} |
| 26 | 1 | 5 | unless scalar @rules |
| 32 | 3 | 48 | if $line =~ /^#/ |
| 34 | 8 | 28 | unless $methods and $folder and $substring |
| 57 | 2 | 7 | unless $email->can($method) |
| 59 | 2 | 5 | unless $testing |
| 60 | 1 | 4 | if $$self{'debug'} |
| 64 | 3 | 2 | if $testing =~ /$substring/is |