Branch Coverage

blib/lib/Trace/Mask/Carp.pm
Criterion Covered Total %
branch 67 78 85.9


line true false branch
13 0 2 unless *carp_longmess = 'Carp'->can('longmess')
34 6 8 if ($arg =~ /^-(.+)$/) { }
0 8 elsif ($arg =~ /^_/) { }
47 2 5 if delete $flags{'global'}
48 2 5 if delete $flags{'wrap'}
51 6 1 unless @bad
62 26 0 if $caller[3] =~ /^Carp::(confess|longmess|cluck)$/
69 26 0 if $caller[3] =~ /^Carp::(confess|longmess|cluck)$/
89 0 1 if $sigwarn
90 0 1 if $sigdie
102 6623 1326 if ($line =~ /^(\s*)([^\(]+)\((.*)\) called at (.+) line (\d+)\.?$/) { }
1054 272 elsif ($line =~ /^(\s*)eval \{\.\.\.\} called at (.+) line (\d+)\.?$/) { }
268 4 elsif ($line =~ /^(\s*)(.*) at (.+) line (\d+)\.?$/) { }
112 7945 4 if keys %out > 1
121 137 606 if ($msg or not $sub)
126 1 605 if ($sub eq 'eval') { }
137 0 137 if $ENV{'NO_TRACE_MASK'}
139 0 137 unless @lines > 1
151 3 7212 unless ($fields)
156 137 7075 unless $num
157 137 7075 if exists $fields->{'msg'}
161 6098 1114 if $stopped and not $mask->{'restart'} || $mask->{'lock'}
162 151 963 if $mask->{'restart'}
163 905 12 unless $mask->{'hide'} or $mask->{'shift'} or $mask->{'lock'}
165 1092 22 unless ($mask->{'lock'})
166 30 1062 if $mask->{'1'}
167 30 1062 if $mask->{'2'}
168 30 1062 if $mask->{'3'}
171 50 1064 if ($mask->{'shift'}) { }
147 917 elsif ($mask->{'hide'}) { }
40 1011 elsif ($skip and not --$skip and $shift) { }
173 0 50 $skip || $mask->{'lock'} ? :
176 50 97 $skip || $mask->{'lock'} ? :
179 40 0 unless ($mask->{'lock'})
188 733 60 unless ($skip or $mask->{'no_start'} and not $out)
189 137 596 if ($error)
198 151 963 if $mask->{'stop'}
201 10 127 if ($shift)
206 10 0 unless $out and $out =~ /at \Q$last->{'file'}\E line $last->{'line'}/