Branch Coverage

lib/Sorauta/Utility.pm
Criterion Covered Total %
branch 16 30 53.3


line true false branch
73 2 0 unless ($timeout)
76 2 0 unless ($retry_count)
80 0 2 if ($DEBUG)
94 0 0 if ($url =~ /$key/u)
104 1 1 if ($response->is_success) { }
108 0 1 if ($DEBUG)
129 0 1 if ($DEBUG)
133 0 1 unless open my $F, '>', $path
134 0 1 if ($is_binary)
214 1 0 if ($_[0] =~ /^ [SMTWF][a-z][a-z], \ (\d\d) \ ([JFMAJSOND][a-z][a-z]) \ (\d\d\d\d) \ (\d\d):(\d\d):(\d\d) \ GMT$/ux)
249 0 1 if $file_path eq '.' or $file_path eq '..' or $file_path =~ /.svn$/u or $file_path =~ /desktop\.ini$/u or $file_path =~ /.DS_Store$/u or $file_path =~ /Thumbs\.db$/u
274 1 1 if ($file_name =~ /^\./u)
278 0 1 if ($file_name eq 'Thumbs.db' or not $file_name =~ /[^\.]/u)
282 0 1 if ($file_name eq '.svn' or $file_name eq 'desktop.ini' or $file_name eq '.DS_Store')
287 0 1 if ($file_name eq 'log')