| blib/lib/ThreatNet/Message/IPv4.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 12 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 0 | 19 | ref $_[0] ? : |
| 24 | 5 | 14 | unless my $self = $class->SUPER::new($msg) |
| 27 | 0 | 14 | unless $msg =~ /^(\S+)(\s+.+)?$/ |
| 34 | 0 | 14 | unless $ip =~ /\./ |
| 38 | 0 | 14 | if (defined $2) |
| 44 | 1 | 13 | unless $$self{'IP'} = 'Net::IP'->new($ip, 4) |