Branch Coverage

lib/Pod/Tidy.pm
Criterion Covered Total %
branch 40 58 68.9


line true false branch
35 0 7 if $p{'columns'}
44 3 4 unless $queue
57 1 1 unless $input
74 2 8 unless defined $queue
82 0 7 unless open my $src, '+<', $filename
94 2 5 if ($inplace) { }
99 0 2 if ${$input->string_ref;} eq ${$output->string_ref;}
102 1 1 unless ($nobackup)
141 0 20 if ('File::Spec'->rel2abs($item) =~ /$pattern/ or $item =~ /$pattern/ or base($item) =~ /$pattern/)
146 0 6 if $verbose
153 16 11 if (-f $item)
156 0 16 unless (-r $item)
161 0 16 unless (contains_pod($item, 0))
162 0 0 if $verbose
167 8 8 unless (valid_pod_syntax($item, $verbose))
168 0 8 if $verbose
179 11 0 if (-d $item)
180 0 11 unless (-r $item and -x $item)
186 9 2 if ($recursive) { }
190 0 9 unless opendir my $dir, $item
199 6 3 if $pod_list
202 0 2 if $verbose
209 0 0 if $verbose
212 14 10 scalar @queue ? :
219 2 18 unless defined $filename and -e $filename
224 0 18 if $verbose
227 9 9 $parser->any_errata_seen ? :
234 2 2 unless defined $filename and -e $filename
242 20 0 if (my $base = basename($path)) { }