| line |
true |
false |
branch |
|
50
|
0 |
0 |
unless my $init = $self->SUPER::brik_init |
|
52
|
0 |
0 |
unless my $na = "Metabrik::Network::Address"->new_from_brik_init($self) |
|
74
|
0 |
0 |
unless my $cw = "Metabrik::Client::Www"->new_from_brik_init($self) |
|
78
|
0 |
0 |
unless my $fc = "Metabrik::File::Compress"->new_from_brik_init($self) |
|
83
|
0 |
0 |
unless my $files = $cw->mirror($dl_path . $mirror{$f}, $f) |
|
87
|
0 |
0 |
unless $fc->uncompress($file, $outfile) |
|
99
|
0 |
0 |
unless $self->brik_help_run_undef_arg("from_ipv4", $ipv4) |
|
103
|
0 |
0 |
unless my $gi = "Geo::IP"->open($self->datadir . "/GeoLiteCity.dat", Geo::IP::GEOIP_STANDARD()) |
|
106
|
0 |
0 |
unless my $gi_asn = "Geo::IP"->open($self->datadir . "/GeoIPASNum.dat", Geo::IP::GEOIP_STANDARD()) |
|
113
|
0 |
0 |
if ($@ or not defined $record) |
|
136
|
0 |
0 |
if ($asn_organization) |
|
144
|
0 |
0 |
unless (defined $from and defined $to) |
|
148
|
0 |
0 |
unless my $network = $na->range_to_cidr($from, $to) |
|
165
|
0 |
0 |
unless (defined $h->{$k} and length $h->{$k}) |
|
177
|
0 |
0 |
unless $self->brik_help_run_undef_arg("from_ipv6", $ipv6) |
|
181
|
0 |
0 |
unless my $gi = "Geo::IP"->open($self->datadir . "/GeoLiteCityv6.dat", Geo::IP::GEOIP_STANDARD()) |
|
184
|
0 |
0 |
unless my $gi_asn = "Geo::IP"->open($self->datadir . "/GeoIPASNumv6.dat", Geo::IP::GEOIP_STANDARD()) |
|
192
|
0 |
0 |
if ($@ or not defined $record) |
|
215
|
0 |
0 |
if ($asn_organization) |
|
245
|
0 |
0 |
unless (defined $h->{$k} and length $h->{$k}) |
|
257
|
0 |
0 |
unless $self->brik_help_run_undef_arg("from_ip", $ip) |
|
260
|
0 |
0 |
if ($na->is_ipv4($ip)) { } |
|
|
0 |
0 |
elsif ($na->is_ipv6($ip)) { } |
|
276
|
0 |
0 |
unless $self->brik_help_run_undef_arg("subnet4", $ipv4_address) |
|
278
|
0 |
0 |
unless my $gi = "Geo::IP"->open($self->datadir . "/GeoLiteCity.dat", Geo::IP::GEOIP_STANDARD()) |
|
290
|
0 |
0 |
unless $self->brik_help_run_undef_arg("organization_name", $ip_address) |
|
292
|
0 |
0 |
unless my $gi = "Geo::IP"->open($self->datadir . "/GeoLiteCity.dat", Geo::IP::GEOIP_STANDARD()) |
|
304
|
0 |
0 |
unless $self->brik_help_run_undef_arg("range_from_ipv4", $ipv4) |
|
306
|
0 |
0 |
unless my $gi = "Geo::IP"->open($self->datadir . "/GeoLiteCity.dat", Geo::IP::GEOIP_STANDARD()) |
|
318
|
0 |
0 |
unless $self->brik_help_run_undef_arg("networks_from_ipv4", $ipv4) |
|
320
|
0 |
0 |
unless my $range = $self->range_from_ipv4($ipv4) |