line |
true |
false |
branch |
497
|
0 |
0 |
if (ref $extra_headers eq 'ARRAY' and @$extra_headers) |
499
|
0 |
0 |
if (@$extra_headers % 2 == 0) { } |
503
|
0 |
0 |
if $self->log |
510
|
0 |
0 |
unless ($initial_req_method =~ /^(GET|POST)$/i) |
511
|
0 |
0 |
if $self->log |
515
|
0 |
0 |
unless ($login_req_method =~ /^(GET|POST)$/i) |
516
|
0 |
0 |
if $self->log |
521
|
0 |
0 |
unless my $ua = 'LWP::UserAgent'->new |
524
|
0 |
0 |
if $self->lwp_user_agent |
525
|
0 |
0 |
if $self->lwp_timeout |
526
|
0 |
0 |
if $self->lwp_use_conn_cache |
529
|
0 |
0 |
if (ref $req_redirectable eq 'ARRAY' and @$req_redirectable) |
534
|
0 |
0 |
if ($self->initial_url) |
536
|
0 |
0 |
$initial_req_method eq 'GET' ? : |
538
|
0 |
0 |
if ($self->trace) |
548
|
0 |
0 |
if ($self->check_initial_status_code) |
550
|
0 |
0 |
unless ($res->is_success) |
552
|
0 |
0 |
if $self->log |
559
|
0 |
0 |
if ($self->initial_expect) |
562
|
0 |
0 |
unless (ref $expect eq 'Regexp') |
565
|
0 |
0 |
unless ($res->decoded_content =~ /$expect/) |
567
|
0 |
0 |
if $self->log |
573
|
0 |
0 |
if ($self->initial_expect_cookie) |
580
|
0 |
0 |
if (ref $expect eq 'Regexp') { } |
582
|
0 |
0 |
if $_[1] =~ /$expect/ and length $_[2] |
584
|
0 |
0 |
if $_[1] eq $expect and length $_[2] |
589
|
0 |
0 |
unless ($found) |
591
|
0 |
0 |
if $self->log |
606
|
0 |
0 |
if (ref $extra_fields eq 'ARRAY' and @$extra_fields) |
608
|
0 |
0 |
if (@$extra_fields % 2 == 0) { } |
612
|
0 |
0 |
if $self->log |
619
|
0 |
0 |
if ($login_req_method eq 'GET') { } |
622
|
0 |
0 |
unless ($url) |
623
|
0 |
0 |
if $self->log |
631
|
0 |
0 |
if ($self->trace) |
642
|
0 |
0 |
if ($self->check_login_status_code) |
644
|
0 |
0 |
unless ($res->is_success) |
646
|
0 |
0 |
if ($res->is_redirect) { } |
648
|
0 |
0 |
if $self->log |
651
|
0 |
0 |
if $self->log |
659
|
0 |
0 |
if ($self->login_expect) |
662
|
0 |
0 |
unless (ref $expect eq 'Regexp') |
665
|
0 |
0 |
unless ($res->decoded_content =~ /$expect/) |
667
|
0 |
0 |
if $self->log |
674
|
0 |
0 |
if ($self->login_expect_cookie) |
681
|
0 |
0 |
if (ref $expect eq 'Regexp') { } |
683
|
0 |
0 |
if $_[1] =~ /$expect/ and length $_[2] |
685
|
0 |
0 |
if $_[1] eq $expect and length $_[2] |
690
|
0 |
0 |
unless ($found) |
692
|
0 |
0 |
if $self->log |
698
|
0 |
0 |
if $self->log |