Branch Coverage

blib/lib/Devel/TraceUse.pm
Criterion Covered Total %
branch 14 76 18.4


line true false branch
6 0 3 if (not defined &DB::DB and $^P & 2)
17 1 64 if $INC[0] ne \&trace_use
53 0 0 if (/^hidecore(?::(.*))?/) { }
0 0 elsif (/^output:(.*)$/) { }
54 0 0 $1 ? :
56 0 0 unless open $output_fh, ">", $1
83 18 0 if $module =~ s/\.pm$//
97 0 18 if $] >= "5.037007"
107 2 16 if ($caller->{'filename'} =~ /^(\(eval \d+\))(?:\[(.*):(\d+)\])?$/)
121 14 4 if $caller->{'filepackage'} =~ s/\.pm$//
127 18 0 if ($caller->{'filename'})
131 16 5 if $subroutine =~ /::/
146 0 0 unless $TRACE{'ranked'}
150 0 0 if (exists $INC{$filename})
157 0 0 if (exists $TRACE{'used'}{$filename})
189 0 0 defined $mod->{'version'} ? :
191 0 0 if defined $caller->{'filename'}
193 0 0 if defined $caller->{'line'}
195 0 0 if $mod->{'eval'}
197 0 0 if $caller->{'package'} ne $caller->{'filepackage'}
199 0 0 unless exists $mod->{'filepath'}
210 0 0 if (ref $mod) { }
211 0 0 if ($hide_core)
214 0 0 unless $hide
222 0 0 $hide ? :
234 0 0 unless @hot_loaders
241 0 0 length $subroutine ? :
249 3 0 if $quiet
254 0 0 unless $^P
257 0 0 if ($hide_core)
264 0 0 unless exists $Module::CoreList::version{$hide_core}
269 0 0 defined $output_fh ? :
276 0 0 if (%{$TRACE{'loaded_by'};})
282 0 0 if (my(@missed) = sort(grep({$_ ne "Devel/TraceUse.pm" if not exists $reported{$_};} keys %INC)))
283 0 0 if not exists $reported{$_}
287 0 0 if @missed
293 0 0 if defined $output_fh
301 0 2 if $^C