| line |
true |
false |
branch |
|
46
|
0 |
0 |
unless $self->brik_help_run_undef_arg('check_resource', $resource) |
|
47
|
0 |
0 |
unless $self->brik_help_run_undef_arg('check_resource', $apikey) |
|
49
|
0 |
0 |
unless my $r = $self->post({'apikey', $apikey, 'resource', $resource}, 'https://www.virustotal.com/vtapi/v2/file/rescan') |
|
58
|
0 |
0 |
unless my $sj = 'Metabrik::String::Json'->new_from_brik_init($self) |
|
59
|
0 |
0 |
unless my $decode = $sj->decode($content) |
|
69
|
0 |
0 |
unless $self->brik_help_run_undef_arg('file_report', $resource) |
|
70
|
0 |
0 |
unless $self->brik_help_run_undef_arg('file_report', $apikey) |
|
72
|
0 |
0 |
unless my $r = $self->post({'apikey', $apikey, 'resource', $resource}, 'https://www.virustotal.com/vtapi/v2/file/report') |
|
81
|
0 |
0 |
unless my $sj = 'Metabrik::String::Json'->new_from_brik_init($self) |
|
82
|
0 |
0 |
unless my $decode = $sj->decode($content) |
|
92
|
0 |
0 |
unless $self->brik_help_run_undef_arg('ipv4_address_report', $ipv4_address) |
|
93
|
0 |
0 |
unless $self->brik_help_run_undef_arg('ipv4_address_report', $apikey) |
|
95
|
0 |
0 |
unless my $r = $self->get('https://www.virustotal.com/vtapi/v2/ip-address/report?apikey=' . $apikey . '&ip=' . $ipv4_address) |
|
104
|
0 |
0 |
unless my $sj = 'Metabrik::String::Json'->new_from_brik_init($self) |
|
105
|
0 |
0 |
unless my $decode = $sj->decode($content) |
|
115
|
0 |
0 |
unless $self->brik_help_run_undef_arg('domain_report', $domain) |
|
116
|
0 |
0 |
unless $self->brik_help_run_undef_arg('domain_report', $apikey) |
|
118
|
0 |
0 |
unless my $r = $self->get('https://www.virustotal.com/vtapi/v2/domain/report?apikey=' . $apikey . '&domain=' . $domain) |
|
127
|
0 |
0 |
unless my $sj = 'Metabrik::String::Json'->new_from_brik_init($self) |
|
128
|
0 |
0 |
unless my $decode = $sj->decode($content) |
|
137
|
0 |
0 |
unless $self->brik_help_run_undef_arg('subdomain_list', $domain) |
|
139
|
0 |
0 |
unless my $r = $self->domain_report($domain) |
|
141
|
0 |
0 |
if (exists $r->{'subdomains'} and ref $r->{'subdomains'} eq 'ARRAY') |
|
152
|
0 |
0 |
unless $self->brik_help_run_undef_arg('hosted_domains', $ipv4_address) |
|
154
|
0 |
0 |
unless my $r = $self->ipv4_address_report($ipv4_address) |
|
157
|
0 |
0 |
if (exists $r->{'resolutions'} and ref $r->{'resolutions'} eq 'ARRAY') |