| line |
true |
false |
branch |
|
146
|
0 |
19 |
$ENV{'LWPCL_REDACT_HEADERS'} ? :
|
|
153
|
0 |
2 |
$ENV{'LWPCL_REDACT_PARAMS'} ? :
|
|
168
|
25 |
2 |
if ($self->dump_uri)
|
|
175
|
22 |
5 |
if ($req->method eq 'GET') { }
|
|
185
|
22 |
5 |
unless $req->content
|
|
199
|
20 |
2 |
if ($self->dump_status)
|
|
202
|
1 |
19 |
if ($self->dump_title and $ua->can("title") and $ua->title)
|
|
217
|
6 |
65 |
unless $self->dump_headers
|
|
219
|
3 |
62 |
unless ($self->pretty)
|
|
229
|
0 |
174 |
&any(sub {
|
|
241
|
3 |
29 |
unless $self->dump_params
|
|
246
|
25 |
4 |
if ($type eq 'GET') { }
|
|
|
3 |
1 |
elsif ($req->header('Content-Length')) { }
|
|
248
|
25 |
0 |
unless @params
|
|
262
|
1 |
2 |
unless (keys %params)
|
|
286
|
0 |
4 |
ref $params{$name} ? :
|
|
|
0 |
4 |
&any(sub {
|
|
300
|
2 |
18 |
unless $self->dump_cookies and $jar and XXX
|
|
302
|
16 |
2 |
if ($jar->isa('HTTP::Cookies')) { }
|
|
|
1 |
1 |
elsif ($jar->isa('HTTP::CookieJar')) { }
|
|
318
|
0 |
0 |
if ($val)
|
|
319
|
0 |
0 |
if $method eq "expires"
|
|
337
|
0 |
0 |
if ($val and $key =~ /expires|_time/)
|
|
355
|
48 |
0 |
$r->can('decoded_content') ? :
|
|
357
|
2 |
46 |
unless $content
|
|
360
|
0 |
46 |
unless $content_type
|
|
363
|
2 |
44 |
if ($type ne 'text' and &none(sub {
|
|
|
2 |
42 |
elsif ($self->content_pre_filter) { }
|
|
383
|
3 |
24 |
unless $self->dump_content
|
|
387
|
1 |
23 |
unless $content
|
|
389
|
1 |
22 |
unless ($self->pretty)
|
|
405
|
3 |
24 |
unless $self->dump_text
|
|
407
|
1 |
23 |
unless $content
|
|
414
|
15 |
8 |
if ($self->text_pre_filter and $r->isa("HTTP::Response"))
|
|
417
|
10 |
5 |
if $type
|
|
420
|
9 |
14 |
unless $content
|
|
422
|
1 |
13 |
unless ($self->pretty)
|
|
450
|
0 |
14 |
unless ($content_type)
|
|
456
|
0 |
14 |
unless ($subtype)
|
|
461
|
4 |
10 |
if ($subtype eq 'html') { }
|
|
|
0 |
10 |
elsif ($subtype eq 'xml') { }
|
|
|
4 |
6 |
elsif ($subtype eq 'json' or $subtype =~ /$json_regex/) { }
|
|
|
2 |
4 |
elsif ($type and $type eq 'application' and $subtype eq 'javascript') { }
|
|
|
1 |
3 |
elsif ($type and $type eq 'application' and $subtype eq 'x-www-form-urlencoded') { }
|
|
|
1 |
2 |
elsif (not $type or $type ne 'text') { }
|
|
466
|
0 |
4 |
unless $content
|
|
486
|
2 |
0 |
if (length $content > 253)
|
|
524
|
23 |
0 |
if ($@)
|
|
527
|
0 |
23 |
if exists $ENV{'COLUMNS'} and $ENV{'COLUMNS'} =~ /^\d+$/
|
|
530
|
23 |
0 |
unless $width and $width >= 80
|
|
539
|
2 |
101 |
unless $t->rows
|
|
540
|
2 |
99 |
if $preamble
|