Branch Coverage

blib/lib/Sys/Trace/Impl/Truss.pm
Criterion Covered Total %
branch 22 36 61.1


line true false branch
37 0 1 if ($args{'follow_forks'})
45 0 1 if ($args{'exec'}) { }
0 1 elsif ($args{'pid'}) { }
47 0 0 ref $args{'exec'} ? :
70 0 0 unless exec @{$$self{'run'};}
75 0 0 if defined $pid
123 0 1 unless ($fh)
124 0 0 unless open $fh, '<', $$self{'temp'}
131 1 67 if (/Base time stamp:\s+([0-9.]+)/)
139 3 64 unless defined $call{'call'}
143 5 59 if (exists $name_syscalls{$call{'call'}})
146 1 4 unless ($call{'name'} =~ m[^/])
152 0 5 if ($call{'call'} eq 'chdir' and $call{'return'} == 0)
170 21 204 if ($args =~ /^"/) { }
0 204 elsif ($args =~ /^([[{])/) { }
137 67 elsif ($args =~ s[(0x[a-fA-F0-9]+|-?[0-9]+)(?:\s+(/\* .*? \*/))?][]) { }
46 21 elsif ($args =~ s/^([^,]+)//) { }
174 1 20 if $args =~ s/\.\.//