| line |
true |
false |
branch |
|
23
|
0 |
5 |
if ($file =~ git_re()) |
|
27
|
0 |
0 |
unless (eval {
do {
run(('git', '--version'));
1
}
}) |
|
36
|
0 |
0 |
if (-d '.git' or eval {
do {
run(('git', 'rev-parse', '--git-dir'));
1
}
}) |
|
39
|
0 |
0 |
if ($remote_line) { } |
|
|
0 |
0 |
elsif (-d '.git') { } |
|
54
|
0 |
0 |
if ($needs_clone) |
|
74
|
0 |
0 |
if ($branch) |
|
84
|
0 |
0 |
unless (-f 'cpanfile') |
|
87
|
0 |
0 |
if (scalar @cpanfiles == 1) |
|
106
|
3 |
2 |
if (-d $file) |
|
111
|
0 |
5 |
unless (-e $file) |
|
116
|
0 |
5 |
unless (-f $file) |
|
131
|
2 |
3 |
if (-f "$file.snapshot") |
|
141
|
0 |
2 |
if (exists $srcs{$provide}) |
|
158
|
0 |
2 |
if (ref $opts->{'source'} eq 'HASH') |
|
166
|
2 |
0 |
unless defined $opts->{'smart-tests'} |
|
172
|
0 |
5 |
unless ($opts->{'skip-perl'}) |
|
175
|
0 |
0 |
if $result |
|
179
|
0 |
5 |
if $result |
|
209
|
6 |
9 |
if ($module eq 'perl') |
|
251
|
0 |
6 |
unless $no_error |
|
269
|
0 |
3 |
if (my $line = !(readline($snap_fh) =~ /$snapshot_re/)) |
|
280
|
12 |
30 |
if ($line =~ /^ \Q$prefix\E (\S+?) :? $/msx) |
|
289
|
27 |
3 |
if ($line =~ /^ \Q$prefix\E (\S+?) (?: :? \s (.*) )? $/msx) |
|
295
|
3 |
0 |
unless ($line =~ /^ \Q$prefix\E /msx) |