Branch Coverage

blib/lib/Sys/Trace/Impl/Strace.pm
Criterion Covered Total %
branch 20 34 58.8


line true false branch
32 0 1 if ($args{'follow_forks'})
40 0 1 if ($args{'exec'}) { }
0 1 elsif ($args{'pid'}) { }
42 0 0 ref $args{'exec'} ? :
64 0 0 unless exec @{$$self{'run'};}
69 0 0 if defined $pid
108 0 1 unless ($fh)
109 0 0 unless open $fh, '<', $$self{'temp'}
118 2 108 unless defined $call{'call'}
120 34 74 if (exists $name_syscalls{$call{'call'}})
123 0 34 unless ($call{'name'} =~ m[^/])
129 0 34 if ($call{'call'} eq 'chdir' and $call{'return'} == 0)
147 38 283 if ($args =~ /^"/) { }
21 262 elsif ($args =~ /^([[{])/) { }
124 138 elsif ($args =~ s[(0x[a-f0-9]+|-?[0-9]+)(?:\s+(/\* .*? \*/))?][]) { }
98 40 elsif ($args =~ s/^([^,]+)//) { }
151 2 36 if $args =~ s/\.\.\.//