| line |
true |
false |
branch |
|
47
|
0 |
0 |
unless $self->brik_help_run_undef_arg('myip', $apikey) |
|
51
|
0 |
0 |
unless my $resp = $self->get($uri . '/tools/myip?key=' . $apikey) |
|
64
|
0 |
0 |
unless $self->brik_help_run_undef_arg('api_info', $apikey) |
|
68
|
0 |
0 |
unless my $resp = $self->get($uri . '/api-info?key=' . $apikey) |
|
71
|
0 |
0 |
unless my $sj = 'Metabrik::String::Json'->new_from_brik_init($self) |
|
72
|
0 |
0 |
unless my $decoded = $sj->decode($content) |
|
82
|
0 |
0 |
unless $self->brik_help_run_undef_arg('host_ip', $ip) |
|
83
|
0 |
0 |
unless $self->brik_help_run_undef_arg('host_ip', $apikey) |
|
85
|
0 |
0 |
unless my $na = 'Metabrik::Network::Address'->new_from_brik_init($self) |
|
86
|
0 |
0 |
unless ($na->is_ip($ip)) |
|
92
|
0 |
0 |
unless my $resp = $self->get($uri . '/shodan/host/' . $ip . '?key=' . $apikey) |
|
95
|
0 |
0 |
unless my $sj = 'Metabrik::String::Json'->new_from_brik_init($self) |
|
96
|
0 |
0 |
unless my $decoded = $sj->decode($content) |