Branch Coverage

blib/lib/ePod.pm
Criterion Covered Total %
branch 35 66 53.0


line true false branch
43 0 1 if ref $this
55 0 1 unless $$this{'OVERSIZE'} and $$this{'OVERSIZE'} =~ /^\d+$/s
65 0 0 UNIVERSAL::isa($_[0], 'ePod') ? :
66 0 0 unless $this
70 0 0 if (ref $_[0] eq 'GLOB') { }
0 0 elsif (not $_[0] =~ /[\r\n]/s and -s $_[0]) { }
82 0 0 $_[0] =~ /\.pod$/i && !($_[0] =~ /[\r\n]/s) ? :
85 0 0 if ($new_file eq '')
88 0 0 unless ($new_file =~ /\.pod$/i)
100 0 0 if (wantarray)
109 5 0 UNIVERSAL::isa($_[0], 'ePod') ? :
110 0 5 unless $this
115 0 5 if (ref $_[0] eq 'GLOB') { }
0 5 elsif ($_[0] =~ /[\r\n]/s and not -e $_[0]) { }
119 5 0 if ($fh)
122 5 0 unless $no_close
152 0 5 unless $data =~ /\S/s
166 0 5 unless $data =~ /^\s*?\n=\w+\s/s
168 5 0 unless $data =~ /\n=cut\s*$/
178 0 0 if ($_[0] =~ /(?:[\r\n]|^)(?:=+>|=>+|\*+>|\*>+)[^>]/)
189 64 32 unless $not_init
216 77 23 unless @items
218 12 11 if (not $level) { }
222 0 12 unless $n
233 6 26 unless $n
234 14 12 if $n < $min_level or not $min_level
237 1 10 if ($min_level > $level)
241 0 23 if $level < 1
258 8 15 if ($block_rest) { }
287 1 22 if ($top =~ /(?:\n|^)(?:\*+>|\*>+)[^>]/s)
291 22 1 if @itens
293 22 1 if @itens
295 8 15 if $block_rest