Branch Coverage

blib/lib/DeltaX/Page.pm
Criterion Covered Total %
branch 62 100 62.0


line true false branch
29 0 2 unless defined $filename
34 0 2 if @_ % 2
38 2 4 if ($_[$x] eq '_defs') { }
56 2 0 unless (defined $do_prints)
58 0 2 if ($$self{'filename'} =~ /^string:/) { }
63 0 2 unless (open INF, $$self{'filename'})
85 11 12 if ($type == 0) { }
86 1 10 unless ($$self{'do_output'})
87 8 2 if ($token =~ /^[\s\n]*$/gs)
89 2 0 if $do_prints
93 1 11 if ($token =~ /^-.*$/s) { }
2 9 elsif ($token =~ /^=(.*)$/s) { }
3 6 elsif ($token =~ /^!(.*)$/ms) { }
5 1 elsif ($token =~ /^:(.*)$/s) { }
97 0 2 unless ($$self{'do_output'})
101 0 3 unless ($$self{'do_output'})
104 0 3 unless (defined $tmp)
109 0 5 unless ($self->_command($1))
112 0 1 unless ($$self{'do_output'})
141 2 23 if ($$self{'cursor'} == $$self{'blength'} - 1)
147 0 23 if ($pos == -1) { }
11 12 elsif ($pos > $$self{'cursor'}) { }
157 0 12 if ($end == -1)
179 1 2 if ($token =~ /^include/)
183 0 2 if ($token =~ /^package/)
190 2 0 if ($2)
192 0 0 unless (exists $$self{'special'}{$1} or exists $$self{'special'}{'*'})
193 0 0 if ($#args > -1) { }
197 0 2 unless exists $$self{'special'}{$tmp}
198 0 2 if $tmp eq '*'
217 1 0 if (not $arg =~ m[^/] or $am_i_string)
218 1 0 if ($$self{'filename'} =~ m[^(.*)/[^/]*$] or $am_i_string)
219 0 1 if ($$self{'special'}{$type}) { }
228 0 1 unless ($arg)
239 1 0 if ($inc->compile) { }
240 1 0 if (not $am_i_string) { }
286 1 4 if ($command eq 'if') { }
1 3 elsif ($command eq 'else') { }
1 2 elsif ($command eq 'end') { }
1 1 elsif ($command eq 'for') { }
1 0 elsif ($command eq 'done') { }
287 0 1 unless ($$self{'do_output'})
291 0 1 if ($arg =~ /^!/) { }
293 0 0 if (grep /^$test$/, @{$$self{'defs'};}) { }
301 1 0 if (grep /^$arg$/, @{$$self{'defs'};}) { }
310 0 1 unless ($$self{'if_level'})
317 0 1 unless ($$self{'if_level'})
323 1 0 unless $$self{'if_count'}[$$self{'if_level'}]
326 0 1 unless ($$self{'do_output'})
331 0 1 unless ($$self{'for_level'})