| line |
true |
false |
branch |
|
110
|
0 |
0 |
if ($params->{'conn'}) { } |
|
117
|
0 |
0 |
unless ($code and $code == 1000) |
|
127
|
0 |
0 |
if ($self->can($action)) { } |
|
137
|
0 |
0 |
if $self->{'critical_error'} |
|
141
|
0 |
0 |
unless $answ and ref $answ |
|
146
|
0 |
0 |
wantarray ? : |
|
179
|
0 |
0 |
if $local_address |
|
181
|
0 |
0 |
if ($timeout) |
|
188
|
0 |
0 |
if ($params->{'alien_conn'}) { } |
|
191
|
0 |
0 |
unless ($cookie->load($params->{'load_cook_from'})) |
|
210
|
0 |
0 |
unless ($ua) |
|
223
|
0 |
0 |
$params->{'alien_conn'} ? : |
|
232
|
0 |
0 |
if ($self->{'alien'}) |
|
233
|
0 |
0 |
wantarray ? : |
|
245
|
0 |
0 |
unless ($rcode == 200) |
|
257
|
0 |
0 |
if ($length == 0) |
|
266
|
0 |
0 |
unless ($c0 and $c0 == 1000) |
|
269
|
0 |
0 |
if $self->{'critical_error'} |
|
277
|
0 |
0 |
if ($c1 and $c1 == 1000) |
|
278
|
0 |
0 |
wantarray ? : |
|
284
|
0 |
0 |
wantarray ? : |
|
303
|
0 |
0 |
unless $out_data and $self->{'sock'} |
|
307
|
0 |
0 |
if ($out_data) |
|
330
|
0 |
0 |
unless ($rcode == 200) |
|
337
|
0 |
0 |
if ($info eq 'login') |
|
364
|
0 |
0 |
unless $pw |
|
366
|
0 |
0 |
$new_pw ? : |
|
370
|
0 |
0 |
if ($self->{'user'} =~ /-(RU|RF)$/) |
|
418
|
0 |
0 |
unless (ref $params and $params->{'save_cook_to'}) |
|
419
|
0 |
0 |
wantarray ? : |
|
424
|
0 |
0 |
unless open COOKFILE, '>', $params->{'save_cook_to'} |
|
432
|
0 |
0 |
wantarray ? : |
|
447
|
0 |
0 |
unless $content and $content =~ /greeting/ |
|
451
|
0 |
0 |
wantarray ? : |
|
457
|
0 |
0 |
$cont->{'passport'} ? : |
|
459
|
0 |
0 |
$is_person ? : |
|
464
|
0 |
0 |
if ($is_person) { } |
|
471
|
0 |
0 |
unless ref $cont->{$type}{'addr'} |
|
478
|
0 |
0 |
unless ($is_person) |
|
481
|
0 |
0 |
unless ref $cont->{'legal'}{'addr'} |
|
488
|
0 |
0 |
if ($cont->{'taxpayerNumbers'}) { } |
|
495
|
0 |
0 |
if ($is_person) |
|
498
|
0 |
0 |
unless ref $cont->{'passport'} |
|
503
|
0 |
0 |
unless ref $cont->{'voice'} |
|
507
|
0 |
0 |
if ($cont->{'fax'}) { } |
|
508
|
0 |
0 |
unless ref $cont->{'fax'} |
|
516
|
0 |
0 |
unless ref $cont->{'email'} |
|
520
|
0 |
0 |
if ($is_person) { } |
|
527
|
0 |
0 |
if ($cont->{'verified'}) { } |
|
543
|
0 |
0 |
$txtcont =~ /contact:person/ ? : |
|
550
|
0 |
0 |
if ($txtcont =~ m[(.+)]s) |
|
553
|
0 |
0 |
if ($pi =~ m[([^<>]+)]) |
|
556
|
0 |
0 |
if ($pi =~ m[([^<>]+)]) |
|
564
|
0 |
0 |
if ($txtcont =~ m[([^<>]+)]) |
|
568
|
0 |
0 |
if ($is_person) |
|
569
|
0 |
0 |
if ($txtcont =~ m[([^<>]+)]) |
|
582
|
0 |
0 |
if ($txtcont =~ m[]) { } |
|
|
0 |
0 |
elsif ($txtcont =~ m[]) { } |
|
591
|
0 |
0 |
if ($txtcont =~ m[([^<>]+)]) |
|
598
|
0 |
0 |
if ($txtcont =~ m[([^<>]+)]) |
|
613
|
0 |
0 |
unless $params->{'authinfo'} |
|
630
|
0 |
0 |
if ($params->{'to'}) |
|
634
|
0 |
0 |
if ($params->{'user'} =~ /-(RU|RF)$/) |
|
672
|
0 |
0 |
if ($answ and $answ =~ //) |
|
676
|
0 |
0 |
if ($answ =~ m[]*>(.+).+/result>]s) |
|
680
|
0 |
0 |
if ($rcode != 1000) |
|
681
|
0 |
0 |
if ($answ =~ m[(.+)]s) |
|
685
|
0 |
0 |
wantarray ? : |
|
690
|
0 |
0 |
if ($answ =~ m[(.+)]s) |
|
695
|
0 |
0 |
if ($rdata =~ m[(.+)]s) |
|
697
|
0 |
0 |
if ($pi =~ m[([^<>]+)]) |
|
705
|
0 |
0 |
if ($rdata =~ m[([^<>]+)]) |
|
716
|
0 |
0 |
if ($e =~ m[registrar:email type="([^"]+)">([^<>]+)
|
|
721
|
0 |
0 |
if ($rdata =~ m[([^<>]+)]) |
|
725
|
0 |
0 |
if ($rdata =~ m[([^<>]+)]) |
|
733
|
0 |
0 |
if ($rdata =~ m[([^<>]+)]) |
|
742
|
0 |
0 |
wantarray ? : |
|
745
|
0 |
0 |
wantarray ? : |
|
773
|
0 |
0 |
unless ref $params |
|
778
|
0 |
0 |
if ($params->{'add'}) |
|
779
|
0 |
0 |
if (defined $params->{'add'}{'ips'} and ref $params->{'add'}{'ips'}) |
|
781
|
0 |
0 |
if ($ip =~ /^\d+\.\d+\.\d+\.\d+$/) { } |
|
790
|
0 |
0 |
if (defined $params->{'add'}{'emails'} and ref $params->{'add'}{'emails'}) |
|
797
|
0 |
0 |
if ($add) { } |
|
805
|
0 |
0 |
if ($params->{'rem'}) |
|
806
|
0 |
0 |
if (defined $params->{'rem'}{'ips'} and ref $params->{'rem'}{'ips'}) |
|
808
|
0 |
0 |
if ($ip =~ /^\d+\.\d+\.\d+\.\d+$/) { } |
|
817
|
0 |
0 |
if (defined $params->{'rem'}{'emails'} and ref $params->{'rem'}{'emails'}) |
|
824
|
0 |
0 |
if ($rem) { } |
|
832
|
0 |
0 |
if ($params->{'chg'}) |
|
833
|
0 |
0 |
if ($params->{'chg'}{'www'}) |
|
837
|
0 |
0 |
if ($params->{'chg'}{'whois'}) |
|
842
|
0 |
0 |
if ($chg) { } |
|
885
|
0 |
0 |
unless ref $params |
|
909
|
0 |
0 |
if ($answ and $answ =~ //) |
|
913
|
0 |
0 |
if ($answ =~ m[]*>(.+).+/result>]s) |
|
917
|
0 |
0 |
if ($rcode != 1000) |
|
918
|
0 |
0 |
if ($answ =~ m[(.+)]s) |
|
922
|
0 |
0 |
wantarray ? : |
|
927
|
0 |
0 |
if ($answ =~ m[(.+)]s) |
|
933
|
0 |
0 |
if ($row =~ m[]*>([^<>]+)]+>]) |
|
943
|
0 |
0 |
wantarray ? : |
|
946
|
0 |
0 |
wantarray ? : |
|
974
|
0 |
0 |
if ($answ and $answ =~ //) |
|
978
|
0 |
0 |
if ($answ =~ m[]*>(.+).+/result>]s) |
|
982
|
0 |
0 |
if ($rcode != 1000) |
|
983
|
0 |
0 |
if ($answ =~ m[(.+)]s) |
|
987
|
0 |
0 |
wantarray ? : |
|
992
|
0 |
0 |
if ($answ =~ m[(.+)]s) |
|
998
|
0 |
0 |
if ($row =~ m[]+)>([^<>]+)]+>]) |
|
1004
|
0 |
0 |
wantarray ? : |
|
1007
|
0 |
0 |
wantarray ? : |
|
1027
|
0 |
0 |
unless ref $params |
|
1057
|
0 |
0 |
unless $self and $self->{'sock'} |
|
1059
|
0 |
0 |
if $self->{'alien'} |