Branch Coverage

blib/lib/LWPx/Record/DataSection.pm
Criterion Covered Total %
branch 10 32 31.2


line true false branch
43 0 7 unless my($pkg, $file) = caller $level
44 5 2 unless $file eq $0
46 0 2 if (defined $Pkg and $pkg ne $Pkg)
56 0 2 if ($level == 0 and not defined $Data)
78 0 0 unless $$Option{'append_data_section'}
79 0 0 unless ($Fh and fileno $Fh)
80 0 0 unless open $Fh, '>>', $File
89 0 2 if (my $cookie_keys = $$Option{'record_request_cookie'})
94 0 2 if (my $post_params = $$Option{'record_post_param'})
106 2 0 if (my $string = $Data && $$Data{$key})
108 0 2 if utf8::is_utf8($string)
120 0 0 if ($$Option{'decode_content'})
122 0 0 if utf8::is_utf8($content)
129 0 0 unless ($record_response_header eq ':all')
132 0 0 unless $header_to_keep{uc $_}
167 2 0 if (my $res = 'LWPx::Record::DataSection'->restore_response($request)) { }