Branch Coverage

inc/LWPx/Record/DataSection.pm
Criterion Covered Total %
branch 9 32 28.1


line true false branch
52 0 2 unless my($pkg, $file) = caller $level
53 0 2 unless $file eq $0
55 0 2 if (defined $Pkg and $pkg ne $Pkg)
65 0 2 if ($level == 0 and not defined $Data)
87 0 0 unless $$Option{'append_data_section'}
88 0 0 unless ($Fh and fileno $Fh)
89 0 0 unless open $Fh, '>>', $File
98 0 2 if (my $cookie_keys = $$Option{'record_request_cookie'})
103 0 2 if (my $post_params = $$Option{'record_post_param'})
115 2 0 if (my $string = $Data && $$Data{$key})
117 0 2 if utf8::is_utf8($string)
129 0 0 if ($$Option{'decode_content'})
131 0 0 if utf8::is_utf8($content)
138 0 0 unless ($record_response_header eq ':all')
141 0 0 unless $header_to_keep{uc $_}
176 2 0 if (my $res = 'LWPx::Record::DataSection'->restore_response($request)) { }