| line |
true |
false |
branch |
|
55
|
0 |
0 |
unless my $cw = "Metabrik::Client::Www"->new_from_brik_init($self) |
|
65
|
0 |
0 |
unless (defined $r) |
|
69
|
0 |
0 |
if (@$r == 0) |
|
83
|
0 |
0 |
unless (defined $fr) |
|
85
|
0 |
0 |
unless $self->brik_help_run_file_not_found("next_record", $input) |
|
87
|
0 |
0 |
unless $fr = "Metabrik::File::Read"->new_from_brik_init($self) |
|
91
|
0 |
0 |
unless $fr->open |
|
95
|
0 |
0 |
unless my $na = "Metabrik::Network::Address"->new_from_brik_init($self) |
|
106
|
0 |
0 |
if $line =~ /^\s*#/ |
|
115
|
0 |
0 |
unless (defined $cc) |
|
119
|
0 |
0 |
if $cc eq "*" |
|
122
|
0 |
0 |
unless (defined $type) |
|
126
|
0 |
0 |
if $type ne "asn" and $type ne "ipv4" and $type ne "ipv6" |
|
134
|
0 |
0 |
if (not $date =~ /^\d{8}$/ and $date ne '') { } |
|
145
|
0 |
0 |
if ($type eq "ipv4") |
|
148
|
0 |
0 |
unless (defined $integer) |
|
153
|
0 |
0 |
unless (defined $to) |
|
158
|
0 |
0 |
unless (defined $subnet) |