Branch Coverage

blib/lib/Embperl/App.pm
Criterion Covered Total %
branch 15 92 16.3


line true false branch
45 1 99 unless ($mod = $Embperl::App::Recipes{$recipe})
47 0 1 $name =~ /::/ ? :
48 1 0 unless (defined &{$mod . '::get_recipe';})
51 0 1 if ($@)
59 60 40 if $r->component->config->debug
61 100 0 if $obj
85 0 12 $req_rec ? :
90 0 12 if defined $req_rec
92 0 12 if defined $req_rec
96 0 12 if ($status == 403) { }
0 12 elsif ($status == 404) { }
112 0 12 if ($virtlog ne '' and $Embperl::dbgLogLink) { }
147 0 12 $server =~ /Embperl/ ? :
166 0 0 unless $to
175 0 0 unless my $smtp = 'Net::SMTP'->new($mailhost, 'Debug', $self->config->maildebug)
179 0 0 if $ok
180 0 0 if $ok
181 0 0 if $ok
183 0 0 if $ok
184 0 0 if $ok
186 0 0 if $ok
187 0 0 if $ok
188 0 0 if $ok
194 0 0 if $ok
197 0 0 if $ok
198 0 0 if $ok
199 0 0 if $ok
209 0 0 if $ok
211 0 0 if $ok
212 0 0 if $ok
213 0 0 if $ok
220 0 0 if $ok
225 0 0 if $ok
226 0 0 if $ok
228 0 0 if $ok
257 0 0 $self->config->mailhelo ? :
0 0 unless $smtp = 'Net::SMTP'->new($self->config->mailhost || 'localhost', 'Debug', $self->config->maildebug || 0, $self->config->mailhelo ? ('Hello', $self->config->mailhelo) : ())
265 0 0 if $ok and $ret
266 0 0 if $ok
267 0 0 if $ok
268 0 0 if $ok
272 0 0 if (defined $v and $v ne '')
274 0 0 if $ok
277 0 0 if $ok
278 0 0 if $ok
281 0 0 $ok ? :