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