| line |
true |
false |
branch |
|
24
|
0 |
0 |
if @_ |
|
74
|
0 |
0 |
if (defined $output_file) |
|
75
|
0 |
0 |
unless open my $fh, '>', $output_file |
|
79
|
0 |
0 |
unless defined $bleadpath and -d $bleadpath |
|
81
|
0 |
0 |
if (not defined $paths) { } |
|
82
|
0 |
0 |
$reverse ? : |
|
85
|
0 |
0 |
if ($paths =~ /^blead$/i) { } |
|
|
0 |
0 |
elsif ($paths =~ /^dual$/i) { } |
|
98
|
0 |
0 |
unless $$config{'exclude-regexes'} |
|
119
|
0 |
0 |
if (-f $absolute_source_file) { } |
|
|
0 |
0 |
elsif (-d $absolute_source_file) { } |
|
133
|
0 |
0 |
if (grep {$source_dir =~ /$_/;} @$exclude_regexes) |
|
142
|
0 |
0 |
if (-f $absolute_source_dir) { } |
|
|
0 |
0 |
elsif (-d $absolute_source_dir) { } |
|
156
|
0 |
0 |
if (grep {$source_dir =~ /$_/;} @$exclude_regexes) |
|
165
|
0 |
0 |
if (-f $absolute_source_dir) { } |
|
|
0 |
0 |
elsif (-d $absolute_source_dir) { } |
|
182
|
0 |
0 |
unless defined $source |
|
186
|
0 |
0 |
if (-d $source) { } |
|
|
0 |
0 |
elsif (-f $source) { } |
|
|
0 |
0 |
elsif ($source =~ m[^(?:ftp|https?)://]) { } |
|
|
0 |
0 |
elsif ($source =~ m[^[^:/]+://]) { } |
|
203
|
0 |
0 |
unless defined $url |
|
210
|
0 |
0 |
unless $ae->extract('to', $tmpdir) |
|
214
|
0 |
0 |
unless opendir my $dh, $tmpdir |
|
218
|
0 |
0 |
if not /^\.\.?$/ |
|
221
|
0 |
0 |
if (@files or @dirs != 1) |
|
231
|
0 |
0 |
unless $url =~ m[/([^/]+)$] |
|
233
|
0 |
0 |
if (is_success(getstore($url, $file))) { } |
|
246
|
0 |
0 |
if (-f $config_file) { } |
|
|
0 |
0 |
elsif (-f 'File::Spec'->catfile($source_dir, $config_file)) { } |
|
|
0 |
0 |
elsif (-f 'File::Spec'->catfile($source_dir, $default_config_file)) { } |
|
263
|
0 |
0 |
if ref $yaml eq 'ARRAY' |
|
277
|
0 |
0 |
unless (-d $full_blead_dir) |
|
281
|
0 |
0 |
unless (-d $full_source_dir) |
|
286
|
0 |
0 |
$recursive ? : |
|
287
|
0 |
0 |
unless (@source_files) |
|
304
|
0 |
0 |
unless -d $path |
|
312
|
0 |
0 |
if $file =~ /$exclude_regex/ |
|
320
|
0 |
0 |
if $_ =~ /$exclude_regex/ |
|
322
|
0 |
0 |
unless -f $_ |
|
337
|
0 |
0 |
unless -d $path |
|
339
|
0 |
0 |
unless opendir my $dh, $path |
|
346
|
0 |
0 |
if $file =~ /$exclude_regex/ |
|
348
|
0 |
0 |
if -f 'File::Spec'->catfile($path, $file) |
|
365
|
0 |
0 |
if grep {$source_file =~ /$_/;} @$exclude_regexes |
|
383
|
0 |
0 |
$ignore_space ? : |
|
384
|
0 |
0 |
if ($reverse) { } |
|
391
|
0 |
0 |
$reverse ? : |
|
392
|
0 |
0 |
$reverse ? : |
|
395
|
0 |
0 |
defined $$pathspec{'blead_module_path'} ? : |
|
400
|
0 |
0 |
if ($paths eq 'dual') { } |
|
|
0 |
0 |
elsif ($paths eq 'blead') { } |
|
405
|
0 |
0 |
$reverse ? : |
|
415
|
0 |
0 |
if (defined $output_file) { } |
|
439
|
0 |
0 |
if ($module_name =~ m[[/.]]) { } |
|
441
|
0 |
0 |
unless (defined $dist) |
|
445
|
0 |
0 |
if ref $dist eq 'CPAN::Module' |
|
446
|
0 |
0 |
unless (ref $dist eq 'CPAN::Distribution') |
|
455
|
0 |
0 |
unless (defined $module) |
|
463
|
0 |
0 |
unless $distro =~ m[^([^/]+)] |
|
467
|
0 |
0 |
unless (defined $mirrors and ref $mirrors eq 'ARRAY' and @$mirrors) |
|
480
|
0 |
0 |
if (defined $$pathspec{'blead_module_path'}) { } |