| line |
true |
false |
branch |
|
31
|
1 |
23 |
if $args{'keep_old'} and $args{'timestamp'} |
|
33
|
1 |
22 |
unless ref $args{'status'} eq 'ARRAY' |
|
36
|
1 |
21 |
if grep {not /^[12345]\d\d$/;} @{$args{'status'};} |
|
37
|
1 |
20 |
if defined $args{'filename'} and not UNIVERSAL::isa($args{'filename'}, 'CODE') |
|
52
|
19 |
4 |
$message->isa('HTTP::Request') ? : |
|
56
|
4 |
19 |
if ($message->isa('HTTP::Response')) |
|
58
|
1 |
3 |
unless grep {$code eq $_;} @{$$self{'_hpbf_save_status'};} |
|
62
|
4 |
18 |
if (defined $$self{'_hpbf_save_filename_code'}) { } |
|
65
|
2 |
2 |
unless (defined $file and $file ne '') |
|
75
|
1 |
17 |
$$self{'_hpbf_save_cut_dirs'} >= @segs ? : |
|
77
|
4 |
14 |
$$self{'_hpbf_save_no_host'} ? : |
|
|
3 |
15 |
$$self{'_hpbf_save_no_dirs'} ? : |
|
86
|
9 |
6 |
@segs ? : |
|
|
3 |
15 |
$$self{'_hpbf_save_no_dirs'} ? : |
|
90
|
2 |
16 |
$vars{'q'} ? : |
|
101
|
5 |
15 |
unless (-e $dir) |
|
103
|
0 |
5 |
if ($@) |
|
113
|
3 |
17 |
if (-e $file) |
|
114
|
0 |
3 |
if ($$self{'_hpbf_save_timestamp'}) { } |
|
|
1 |
2 |
elsif ($$self{'_hpbf_save_keep_old'}) { } |
|
129
|
0 |
2 |
if $i++ - $n == 10 |
|
132
|
1 |
1 |
if ($$self{'_hpbf_save_multiple'}) { } |
|
150
|
4 |
4 |
unless exists $$self{'_hpbf_save_fh'} |
|
154
|
0 |
4 |
if not defined $res |
|
162
|
2 |
2 |
if ($$self{'_hpbf_save_fh'}) |