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