Branch Coverage

lib/Catalyst/Plugin/ErrorCatcher.pm
Criterion Covered Total %
branch 64 102 62.7


line true false branch
68 0 22 if (defined $$conf{'enable'} and not $$conf{'enable'})
76 22 0 if (defined $$conf{'enable'} and $$conf{'enable'} or not defined $$conf{'enable'} and $c->debug)
100 8 1 if (defined(my $emit_list = $c->_errorcatcher_cfg->{'emit_module'}))
103 0 8 if (defined ref $emit_list and 'ARRAY' eq ref $emit_list) { }
8 0 elsif (not ref $emit_list) { }
124 0 8 if ($@)
129 2 6 if ($emitter_name->can('new'))
136 0 2 if ($@)
143 0 2 if $$conf{'verbose'} > 1
161 0 22 unless defined $c->_errorcatcher_msg
164 7 15 if (defined(my $emit_list = $c->_errorcatcher_cfg->{'emit_module'}))
167 0 7 if (defined ref $emit_list and 'ARRAY' eq ref $emit_list) { }
7 0 elsif (not ref $emit_list) { }
175 0 7 if $$conf{'verbose'}
184 7 0 if ($emitted_ok) { }
186 0 7 if $$conf{'verbose'}
192 0 0 if $$conf{'verbose'}
201 15 7 if (not $emitted_count or $c->_errorcatcher_cfg->{'always_log'})
223 2 5 if (defined(my $e = $c->_errorcatcher_emitter_of->{$emitter_name}))
225 2 0 if ($emitter_name eq ref $e) { }
235 5 2 unless (defined $emitter)
238 0 5 if ($@)
247 7 0 if ($emitter->can('emit')) { }
253 0 7 if ($@)
259 0 7 if $$conf{'verbose'} > 1
267 0 0 if $$conf{'verbose'}
289 168 0 if $plugin->can('tidy_message')
313 40 193 unless defined $_[2]
341 14 0 if length $value < 40
350 0 0 if ($type ne 'application/octet-stream')
367 38 6 unless keys %$params
404 22 0 if defined $c->request->address
406 22 0 if (defined $c->request->hostname) { }
422 3 18 if ($c->can('user_exists') and $c->user_exists and $c->user->can($user_identifier_method))
429 3 0 if (ref $c->user) { }
445 16 6 if ('ARRAY' eq ref $c->_errorcatcher) { }
450 29 0 if ($$frame{'file'} =~ /../)
456 7 22 unless (defined $c->_errorcatcher_first_frame)
482 1 21 if ($c->_errorcatcher_cfg->{'include_session'} and defined $c->session)
487 0 1 if (my $e = $@) { }
498 22 0 if ($full_error)
505 22 0 if (defined $feedback)
523 16 6 if (defined $stacktrace) { }
528 0 6 if $$conf{'verbose'} > 1
541 29 0 if (-f $file)
544 0 29 $start < 1 ? :
545 29 0 if (my $fh = 'IO::File'->new($file, 'r'))
549 25 1043 if $cur_line > $end
550 786 257 if $cur_line < $start
551 29 228 $cur_line == $linenum ? :
552 257 0 $line ? :