| lib/Mail/DMARC/Report/URI.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 22 | 72.7 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 0 | 52 | unless my $str = shift() |
| 24 | 0 | 55 | unless (my $uri = "URI"->new($u)) |
| 28 | 0 | 55 | unless my $scheme = $uri->scheme |
| 29 | 40 | 15 | if ($scheme eq "mailto" and lc substr($u, 0, 7) eq "mailto:") |
| 33 | 7 | 8 | if ($scheme =~ /^http(s)?/x and lc substr($u, 0, 4) eq "http") |
| 47 | 51 | 10 | unless defined $size |
| 48 | 1 | 9 | if $size =~ /^\d+$/ |
| 53 | 1 | 8 | if "k" eq $unit |
| 54 | 7 | 1 | if "m" eq $unit |
| 55 | 1 | 0 | if "g" eq $unit |
| 56 | 0 | 0 | if "t" eq $unit |