Condition Coverage

lib/App/Perlbrew/HTTP.pm
Criterion Covered Total %
condition 2 3 66.6


or 3 conditions

line l !l&&r !l&&!r condition
43 6 4 0 $HTTP_USER_AGENT_PROGRAM ||= do { my $program; foreach my $p (sort {$commands{$a}{'order'} <=> $commands{$b}{'order'};} keys %commands) { my $code = system("$p $commands{$p}{'test'}") >> 8; if ($code != 127) { $program = $p; last; } ; } ; unless ($program) { die "[ERROR] Cannot find a proper http user agent program. Please install curl or wget.\n"; } ; $program }