Branch Coverage

lib/DBIx/DR/PerlishTemplate.pm
Criterion Covered Total %
branch 44 54 81.4


line true false branch
36 60 0 if (not $_PTPL->parsed_template) { }
45 6 54 if (my $e = $@)
48 3 3 if ($_PTPL->template_file) { }
57 6 0 if ($1)
59 3 3 unless $do_croak
85 0 12 unless -r $file
92 12 0 if $self->sql_utf8
117 6 262 if (&Scalar::Util::blessed($str)) { }
118 6 0 if ('DBIx::DR::ByteStream' eq &Scalar::Util::blessed($str)) { }
0 0 elsif ($str->can('content')) { }
140 5 42 if (&Scalar::Util::blessed($variable))
141 5 0 if 'DBIx::DR::ByteStream' eq &Scalar::Util::blessed($variable)
160 0 72 unless defined $t and length $t
162 12 60 if ($t =~ /^\Q$immediate_mark\E/)
170 36 24 if ($t =~ /^\Q$quote_mark\E/)
183 66 247 unless defined $content and length $content
223 46 177 if ($st eq 'code')
224 42 4 if (/^(.*?)\Q$close_tag\E(.*)/) { }
238 30 147 if (/^(\s*)\Q$line_tag\E(.*)/)
240 23 7 if ($i < $#lines) { }
249 42 147 if (/^(.*?)\Q$open_tag\E(.*)/) { }
257 94 53 if $i < $#lines
261 0 60 if defined $code_text and length $code_text
268 228 66 if @tokens
269 66 228 if defined wantarray
275 32 66 if @tokens
276 66 32 if defined wantarray