Branch Coverage

blib/lib/App/Photobear.pm
Criterion Covered Total %
branch 7 60 11.6


line true false branch
25 0 1 unless (-e "$filename")
28 0 1 unless open my $fh, "<", $filename
32 1 1 if $line =~ /^[#[]/u
41 0 0 unless open my $fh, ">", $filename
58 1 1 if ($response->{'success'}) { }
0 1 elsif ($response->{'status'} == 599) { }
69 0 0 if ($response->is_success) { }
75 0 0 if ($@)
80 0 0 if ($line =~ /^HTTP/u and $line =~ /200/u)
94 0 0 if ($? == -1) { }
0 0 elsif ($? & 127) { }
0 0 elsif ($? >> 8) { }
97 0 0 $? & 128 ? :
105 0 0 if ($line =~ /^content-type/iu)
138 0 0 if ($@)
144 0 0 if ($@)
154 0 0 unless (grep {$_ eq $mode;} @MODES)
159 0 0 if (not $api_key or length $api_key == 0)
171 0 0 if ($ENV{'DEBUG'})
175 0 0 $ENV{'DEBUG'} ? :
176 0 0 if ($? == -1) { }
0 0 elsif ($? & 127) { }
0 0 elsif ($? >> 8) { }
179 0 0 $? & 128 ? :
195 0 0 if ($TESTMODE)
199 0 0 if ($? == -1) { }
0 0 elsif ($? & 127) { }
0 0 elsif ($? >> 8) { }
0 0 elsif ($? == 0) { }
202 0 0 $? & 128 ? :