| 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 ? : |
|
453
|
0 |
0 |
unless $content and $content =~ /greeting/ |
|
457
|
0 |
0 |
wantarray ? : |
|
469
|
0 |
0 |
$cont->{'passport'} ? : |
|
471
|
0 |
0 |
$is_person ? : |
|
476
|
0 |
0 |
if ($is_person) { } |
|
483
|
0 |
0 |
unless ref $cont->{$type}{'addr'} |
|
490
|
0 |
0 |
unless ($is_person) |
|
493
|
0 |
0 |
unless ref $cont->{'legal'}{'addr'} |
|
500
|
0 |
0 |
if ($cont->{'taxpayerNumbers'}) { } |
|
507
|
0 |
0 |
if ($is_person) |
|
510
|
0 |
0 |
unless ref $cont->{'passport'} |
|
515
|
0 |
0 |
unless ref $cont->{'phone'} |
|
519
|
0 |
0 |
if ($cont->{'fax'}) { } |
|
520
|
0 |
0 |
unless ref $cont->{'fax'} |
|
528
|
0 |
0 |
unless ref $cont->{'email'} |
|
532
|
0 |
0 |
if ($is_person) { } |
|
539
|
0 |
0 |
if ($cont->{'verified'}) { } |
|
771
|
0 |
0 |
$txtcont =~ /contact:person/ ? : |
|
778
|
0 |
0 |
if ($txtcont =~ m[(.+)]s) |
|
781
|
0 |
0 |
if ($pi =~ m[([^<>]+)]) |
|
784
|
0 |
0 |
if ($pi =~ m[([^<>]+)]) |
|
792
|
0 |
0 |
if ($txtcont =~ m[([^<>]+)]) |
|
796
|
0 |
0 |
if ($is_person) |
|
797
|
0 |
0 |
if ($txtcont =~ m[([^<>]+)]) |
|
810
|
0 |
0 |
if ($txtcont =~ m[]) { } |
|
|
0 |
0 |
elsif ($txtcont =~ m[]) { } |
|
819
|
0 |
0 |
if ($txtcont =~ m[([^<>]+)]) |
|
826
|
0 |
0 |
if ($txtcont =~ m[([^<>]+)]) |
|
848
|
0 |
0 |
if ($params->{'to'}) |
|
852
|
0 |
0 |
if ($params->{'user'} =~ /-(RU|RF)$/) |
|
890
|
0 |
0 |
if ($answ and $answ =~ //) |
|
894
|
0 |
0 |
if ($answ =~ m[]*>(.+).+/result>]s) |
|
898
|
0 |
0 |
if ($rcode != 1000) |
|
899
|
0 |
0 |
if ($answ =~ m[(.+)]s) |
|
903
|
0 |
0 |
wantarray ? : |
|
908
|
0 |
0 |
if ($answ =~ m[(.+)]s) |
|
913
|
0 |
0 |
if ($rdata =~ m[(.+)]s) |
|
915
|
0 |
0 |
if ($pi =~ m[([^<>]+)]) |
|
923
|
0 |
0 |
if ($rdata =~ m[([^<>]+)]) |
|
934
|
0 |
0 |
if ($e =~ m[registrar:email type="([^"]+)">([^<>]+)
|
|
939
|
0 |
0 |
if ($rdata =~ m[([^<>]+)]) |
|
943
|
0 |
0 |
if ($rdata =~ m[([^<>]+)]) |
|
951
|
0 |
0 |
if ($rdata =~ m[([^<>]+)]) |
|
960
|
0 |
0 |
wantarray ? : |
|
963
|
0 |
0 |
wantarray ? : |
|
992
|
0 |
0 |
unless ref $params |
|
997
|
0 |
0 |
if ($params->{'add'}) |
|
998
|
0 |
0 |
if (defined $params->{'add'}{'ips'} and ref $params->{'add'}{'ips'}) |
|
1000
|
0 |
0 |
if ($ip =~ /^\d+\.\d+\.\d+\.\d+$/) { } |
|
1009
|
0 |
0 |
if (defined $params->{'add'}{'emails'} and ref $params->{'add'}{'emails'}) |
|
1016
|
0 |
0 |
if ($add) { } |
|
1024
|
0 |
0 |
if ($params->{'rem'}) |
|
1025
|
0 |
0 |
if (defined $params->{'rem'}{'ips'} and ref $params->{'rem'}{'ips'}) |
|
1027
|
0 |
0 |
if ($ip =~ /^\d+\.\d+\.\d+\.\d+$/) { } |
|
1036
|
0 |
0 |
if (defined $params->{'rem'}{'emails'} and ref $params->{'rem'}{'emails'}) |
|
1043
|
0 |
0 |
if ($rem) { } |
|
1051
|
0 |
0 |
if ($params->{'chg'}) |
|
1052
|
0 |
0 |
if ($params->{'chg'}{'www'}) |
|
1056
|
0 |
0 |
if ($params->{'chg'}{'whois'}) |
|
1061
|
0 |
0 |
if ($chg) { } |
|
1106
|
0 |
0 |
unless ref $params |
|
1130
|
0 |
0 |
if ($answ and $answ =~ //) |
|
1134
|
0 |
0 |
if ($answ =~ m[]*>(.+).+/result>]s) |
|
1138
|
0 |
0 |
if ($rcode != 1000) |
|
1139
|
0 |
0 |
if ($answ =~ m[(.+)]s) |
|
1143
|
0 |
0 |
wantarray ? : |
|
1148
|
0 |
0 |
if ($answ =~ m[(.+)]s) |
|
1154
|
0 |
0 |
if ($row =~ m[]*>([^<>]+)]+>]) |
|
1164
|
0 |
0 |
wantarray ? : |
|
1167
|
0 |
0 |
wantarray ? : |
|
1195
|
0 |
0 |
if ($answ and $answ =~ //) |
|
1199
|
0 |
0 |
if ($answ =~ m[]*>(.+).+/result>]s) |
|
1203
|
0 |
0 |
if ($rcode != 1000) |
|
1204
|
0 |
0 |
if ($answ =~ m[(.+)]s) |
|
1208
|
0 |
0 |
wantarray ? : |
|
1213
|
0 |
0 |
if ($answ =~ m[(.+)]s) |
|
1219
|
0 |
0 |
if ($row =~ m[]+)>([^<>]+)]+>]) |
|
1225
|
0 |
0 |
wantarray ? : |
|
1228
|
0 |
0 |
wantarray ? : |
|
1248
|
0 |
0 |
unless ref $params |
|
1278
|
0 |
0 |
unless $self and $self->{'sock'} |
|
1280
|
0 |
0 |
if $self->{'alien'} |