| 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) |