Branch Coverage

blib/lib/Getopt/Long/DescriptivePod.pm
Criterion Covered Total %
branch 29 44 65.9


line true false branch
21 6 0 if ($$param_ref{'on_verbose'})
40 8 7 unless defined $value
44 1 6 $key eq 'after' ? :
1 6 $key eq 'before' ? :
58 5 0 if (ref $$param_ref{'filename'})
61 0 0 if (open my $file, '< :raw', $$param_ref{'filename'})
75 3 0 if (ref $$param_ref{'filename'})
79 0 0 unless open my $file, '> :raw', $$param_ref{'filename'}
81 0 0 unless print {$file;} $content
83 0 0 unless close $file
104 10 11 unless defined $param_of{$block}
106 3 8 if $param_of{$block} =~ / ^ = /msx
127 4 1 unless $block_of{'before'}
133 4 1 unless $block_of{'after'}
138 1 4 unless ($current_content)
154 11 15 if ($is_found)
155 4 7 if ($line =~ / \A = \w /msx)
162 4 11 if ($line =~ / \A \Q$param_of{'tag'}\E \z /msx)
172 3 1 if ($newlines_at_eof) { }
182 1 3 if ($new_content eq $current_content)
196 0 0 unless ($indent)
202 0 0 unless $indent =~ / \A [1-9] \d* \z /msx