Branch Coverage

blib/lib/App/Wax.pm
Criterion Covered Total %
branch 44 116 37.9


line true false branch
146 0 0 unless (-d $dir)
147 0 0 unless (mkdir $dir)
166 0 232 if ($self->cache and $self->mirror) { }
179 0 0 unless unlink $filename
189 0 0 if ($response->is_success)
193 0 0 if ($content_type) { }
211 0 0 if ($self->cache and -e $filename) { }
0 0 elsif ($self->mirror) { }
216 0 0 if ($response->is_success) { }
0 0 elsif ($response->code == 304) { }
224 0 0 if ($response->is_success)
229 0 0 if (defined $downloaded) { }
230 0 0 $downloaded ? :
253 0 0 @args ? :
265 0 0 unless $split
270 0 0 unless $content_type
272 0 0 if ({application/octet-stream => 1, binary/octet-stream => 1, text/plain => 1}->{$content_type})
274 0 0 if (not defined $query and $path and $path =~ /.(\.(?:(tar\.(?:bz|bz2|gz|lzo|Z))|(?:[ch]\+\+)|(?:\w+)))$/i)
279 0 0 unless ($extension)
283 0 0 if (@extensions)
296 387 563 if ($url =~ m[^[a-zA-Z][\w+]*://])
299 387 0 if ($scheme and $domain || $path)
307 0 1044 if ($self->verbose)
309 0 0 @args ? :
324 23 204 unless ($self->keep)
328 0 227 if ($error) { }
342 0 2793 m[[^0-9A-Za-z+,./:=\@_-]] ? :
352 0 0 if ($self->keep) { }
361 0 0 wantarray ? :
370 0 0 $self->has_directory ? :
377 0 0 if (-s $index_file) { }
407 0 0 if ($self->has_directory) { }
413 0 0 if ($extension)
438 0 285 unless (@argv)
456 12 0 if (@argv) { }
468 816 963 if ($wax_options) { }
13 950 elsif ($self->has_separator and $arg eq $self->separator) { }
387 563 elsif ($self->is_url($arg)) { }
469 116 700 if ($arg =~ /^(?:-c|--cache)$/) { }
0 700 elsif ($arg =~ /^(?:-d|--dir|--directory)$/) { }
0 700 elsif ($arg eq '-D') { }
0 700 elsif ($arg =~ /^(?:-v|--verbose)$/) { }
0 700 elsif ($arg =~ /^(?:-[?h]|--help)$/) { }
116 584 elsif ($arg =~ /^(?:-m|--mirror)$/) { }
12 572 elsif ($arg =~ /^(?:-s|--separator)$/) { }
2 570 elsif ($arg =~ /^(?:-S|--no-separator)$/) { }
285 285 elsif ($arg eq '--test') { }
0 285 elsif ($arg =~ /^(?:-t|--timeout)$/) { }
0 285 elsif ($arg =~ /^(?:-u|--user-agent)$/) { }
0 285 elsif ($arg =~ /^(?:-V|--version)$/) { }
0 285 elsif ($arg =~ /^-/) { }
511 270 117 unless ($seen_url)
538 0 285 unless (@$command)
540 0 0 $test ? :
543 153 132 if (@$resolve == 1) { }
117 15 elsif (@$resolve) { }
561 0 205 if ($error) { }
205 0 elsif ($test) { }