| line |
true |
false |
branch |
|
174
|
0 |
0 |
unless $self->brik_help_run_undef_arg("estimate_runtime", $ip_list) |
|
175
|
0 |
0 |
unless $self->brik_help_run_undef_arg("estimate_runtime", $port_list) |
|
177
|
0 |
0 |
unless my $runtime = Net::Write::Fast::estimate_runtime({"targets", $ip_list, "ports", $port_list, "pps", $pps, "try", $try}) |
|
198
|
0 |
0 |
if (length $pps > 8) { } |
|
|
0 |
0 |
elsif (length $pps > 5) { } |
|
|
0 |
0 |
elsif (length $pps > 2) { } |
|
223
|
0 |
0 |
if ($bandwidth =~ /B$/) { } |
|
|
0 |
0 |
elsif ($bandwidth =~ /K$/) { } |
|
|
0 |
0 |
elsif ($bandwidth =~ /M$/) { } |
|
|
0 |
0 |
elsif ($bandwidth =~ /G$/) { } |
|
250
|
0 |
0 |
unless $self->brik_help_run_undef_arg("tcp_syn_sender", $ip_list) |
|
251
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("tcp_syn_sender", $ip_list, "ARRAY") |
|
252
|
0 |
0 |
unless $self->brik_help_run_empty_array_arg("tcp_syn_sender", $ip_list, "ARRAY") |
|
253
|
0 |
0 |
unless $self->brik_help_run_undef_arg("tcp_syn_sender", $port_list) |
|
254
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("tcp_syn_sender", $port_list, "ARRAY") |
|
255
|
0 |
0 |
unless $self->brik_help_run_empty_array_arg("tcp_syn_sender", $port_list, "ARRAY") |
|
260
|
0 |
0 |
unless my $na = "Metabrik::Network::Address"->new_from_brik_init($self) |
|
265
|
0 |
0 |
if ($use_ipv6) { } |
|
266
|
0 |
0 |
defined $self->src_ip ? : |
|
267
|
0 |
0 |
unless (defined $ip6) |
|
272
|
0 |
0 |
defined $self->src_ip ? : |
|
273
|
0 |
0 |
unless (defined $ip4) |
|
279
|
0 |
0 |
if ($self->use_ipv6) { } |
|
280
|
0 |
0 |
unless ($na->is_ipv6($ip)) |
|
286
|
0 |
0 |
unless ($na->is_ipv4($ip)) |
|
303
|
0 |
0 |
if ($last > $n_targets - 1) |
|
311
|
0 |
0 |
if ($n_chunks > 1) |
|
318
|
0 |
0 |
$use_ipv6 ? : |
|
327
|
0 |
0 |
if ($r == 0) |
|
343
|
0 |
0 |
if (defined $port_list) |
|
344
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("tcp_syn_start_receiver", $port_list, "ARRAY") |
|
346
|
0 |
0 |
unless $self->brik_help_run_empty_array_arg("tcp_syn_start_receiver", $port_list) |
|
352
|
0 |
0 |
unless my $nr = "Metabrik::Network::Read"->new_from_brik_init($self) |
|
356
|
0 |
0 |
if ($self->use_ipv6) { } |
|
357
|
0 |
0 |
defined $self->src_ip ? : |
|
|
0 |
0 |
unless $ip = defined $self->src_ip ? $self->src_ip : $self->my_ipv6 |
|
360
|
0 |
0 |
defined $self->src_ip ? : |
|
|
0 |
0 |
unless $ip = defined $self->src_ip ? $self->src_ip : $self->my_ipv4 |
|
363
|
0 |
0 |
if (defined $port_list) |
|
369
|
0 |
0 |
unless (defined $filter) |
|
370
|
0 |
0 |
$self->use_ipv6 ? : |
|
377
|
0 |
0 |
if (defined $port_list and @$port_list <= 10) |
|
392
|
0 |
0 |
unless $nr->open |
|
401
|
0 |
0 |
unless (defined $nr) |
|
421
|
0 |
0 |
unless $self->brik_help_run_undef_arg("tcp_syn_receive_until_sender_exit", $pid) |
|
422
|
0 |
0 |
unless $self->brik_help_run_undef_arg("tcp_syn_receive_until_sender_exit", $pps) |
|
423
|
0 |
0 |
unless $self->brik_help_run_undef_arg("tcp_syn_receive_until_sender_exit", $wait) |
|
424
|
0 |
0 |
unless $self->brik_help_run_undef_arg("tcp_syn_start_receiver", $nr) |
|
426
|
0 |
0 |
unless my $sp = "Metabrik::System::Process"->new_from_brik_init($self) |
|
434
|
0 |
0 |
if (my $next = $nr->read_until_timeout($pps / 30, $wait)) |
|
438
|
0 |
0 |
if ($s->ref->{'TCP'}) |
|
439
|
0 |
0 |
$use_ipv6 ? : |
|
441
|
0 |
0 |
if ($tcp->flags == 18) { } |
|
|
0 |
0 |
elsif ($tcp->flags == 20) { } |
|
442
|
0 |
0 |
$use_ipv6 ? : |
|
|
0 |
0 |
$use_ipv6 ? : |
|
464
|
0 |
0 |
$use_ipv6 ? : |
|
|
0 |
0 |
$use_ipv6 ? : |
|
476
|
0 |
0 |
if ($nr->has_timeout) |
|
478
|
0 |
0 |
unless ($sp->is_running($pid)) |
|
499
|
0 |
0 |
unless $self->brik_help_run_undef_arg("tcp_syn_scan", $ip_list) |
|
500
|
0 |
0 |
unless my $ref1 = $self->brik_help_run_invalid_arg("tcp_syn_scan", $ip_list, "ARRAY", "SCALAR") |
|
502
|
0 |
0 |
if ($ref1 eq "SCALAR") |
|
505
|
0 |
0 |
unless $self->brik_help_run_empty_array_arg("tcp_syn_scan", $ip_list) |
|
506
|
0 |
0 |
unless $self->brik_help_run_undef_arg("tcp_syn_scan", $port_list, "ARRAY") |
|
507
|
0 |
0 |
unless my $ref2 = $self->brik_help_run_invalid_arg("tcp_syn_scan", $port_list, "ARRAY", "SCALAR") |
|
509
|
0 |
0 |
if ($ref2 eq "SCALAR") |
|
512
|
0 |
0 |
unless $self->brik_help_run_empty_array_arg("tcp_syn_scan", $port_list) |
|
516
|
0 |
0 |
unless my $na = "Metabrik::Network::Address"->new_from_brik_init($self) |
|
518
|
0 |
0 |
unless my $nr = $self->tcp_syn_start_receiver($port_list) |
|
521
|
0 |
0 |
if (defined $estimate) |
|
536
|
0 |
0 |
unless my $wf = "Metabrik::Worker::Fork"->new_from_brik_init($self) |
|
537
|
0 |
0 |
unless defined(my $pid = $wf->start) |
|
539
|
0 |
0 |
unless ($pid) |
|
546
|
0 |
0 |
$na->is_ipv6($ip_list->[0]) ? : |