Branch Coverage

blib/lib/HTML/Mason/Exceptions.pm
Criterion Covered Total %
branch 41 46 89.1


line true false branch
86 377 4 if ($args{'abbr'})
91 0 917 unless defined &{$name;}
105 140 1157 unless defined $err
107 1017 140 $name ? :
109 0 1157 unless $name->isa('HTML::Mason::Exception')
117 1510 512 unless $err
119 469 43 if (UNIVERSAL::can($err, 'rethrow')) { }
1 42 elsif (ref $err) { }
148 46 94 @_ == 1 ? :
150 12 128 if (HTML::Mason::Exceptions::isa_mason_exception($params{'error'}))
153 0 140 if (HTML::Mason::Exceptions::isa_mason_exception($params{'message'}))
178 51 1504 if $frame->subroutine eq 'HTML::Mason::Request::exec'
179 818 46 unless ($frame->filename =~ m[Mason/Exceptions\.pm] or $ignore_subs{$frame->subroutine} or $frame->subroutine eq 'HTML::Mason::Request::comp' and $frame->filename =~ /Request\.pm/)
185 3 96 unless @frames
194 1 99 if $self->{'_info'}
197 16 83 if ($self->isa('HTML::Mason::Exception::Syntax')) { }
24 59 elsif ($self->isa('HTML::Mason::Exception::Compilation')) { }
59 0 elsif (@frames) { }
211 99 0 if @lines
228 84 15 if (defined $file and open $fh, $file) { }
244 302 499 if $l <= 0 or $l > @file
255 28 452 unless $last_num == $line_num - 1
259 30 54 unless $last_num == @file