Branch Coverage

blib/lib/Devel/TraceUse.pm
Criterion Covered Total %
branch 25 74 33.7


line true false branch
6 0 3 if (not defined &DB::DB and $^P & 2)
13 3 0 unless grep {"$_" eq \&trace_use . '';} @INC
37 0 0 if (/^hidecore(?::(.*))?/) { }
0 0 elsif (/^output:(.*)$/) { }
38 0 0 $1 ? :
40 0 0 unless open $output_fh, '>', $1
63 0 17 if $INC[0] ne $code
69 17 0 if $module =~ s/\.pm$//
90 4 13 if ($caller->{'filename'} =~ /^(\(eval \d+\))(?:\[(.*):(\d+)\])?$/)
104 15 2 if $caller->{'filepackage'} =~ s/\.pm$//
110 17 0 if ($caller->{'filename'})
113 16 4 if $subroutine =~ /::/
130 0 0 defined $version ? :
132 0 0 if defined $caller->{'filename'}
134 0 0 if defined $caller->{'line'}
136 0 0 if $mod->{'eval'}
138 0 0 if $caller->{'package'} ne $caller->{'filepackage'}
140 0 0 unless exists $INC{$mod->{'filename'}}
151 0 1 if (ref $mod) { }
154 0 0 if ($hide_core)
158 0 0 unless $hide
167 0 0 unless $INC{$_}
0 0 $hide ? :
189 1 0 unless @hot_loaders
196 0 0 defined $subroutine ? :
204 2 1 if $quiet
208 0 74 if (exists $used{$filename})
215 0 1 unless $^P
218 0 1 if ($hide_core)
224 0 0 unless exists $Module::CoreList::version{$hide_core}
229 0 1 defined $output_fh ? :
236 0 1 if (%loaded)
241 1 0 if (my(@missed) = sort(grep({$_ ne 'Devel/TraceUse.pm' if not exists $reported{$_};} keys %INC)))
242 74 0 if not exists $reported{$_}
246 1 0 if @missed
252 0 1 if defined $output_fh
259 0 2 if $^C