| line |
true |
false |
branch |
|
34
|
0 |
35 |
unless eval q[use base 'Module::Build'; 1] |
|
71
|
0 |
0 |
unless opendir my $scripts_dir, 'scripts' |
|
77
|
0 |
0 |
if $thing =~ /^\./ |
|
79
|
0 |
0 |
if (-d $thing) |
|
85
|
0 |
0 |
$int_ok ? : |
|
89
|
0 |
0 |
$accept ? : |
|
91
|
0 |
0 |
if ($prompt =~ /^[aA]/) { } |
|
|
0 |
0 |
elsif ($prompt =~ /^[iI]/) { } |
|
110
|
0 |
0 |
if $result =~ /^[qQ]/ |
|
111
|
0 |
0 |
if ($result =~ /^[yY]/) { } |
|
120
|
0 |
0 |
@chosen_scripts ? : |
|
142
|
0 |
0 |
unless (-d 'scripts') |
|
147
|
0 |
0 |
if ($chosen_scripts) |
|
148
|
0 |
0 |
if $chosen_scripts eq 'none' |
|
149
|
0 |
0 |
unless $chosen_scripts eq 'all' |
|
162
|
0 |
0 |
unless my $mess = shift() |
|
165
|
0 |
0 |
if ($self->_is_unattended and not @_) |
|
171
|
0 |
0 |
if @_ |
|
172
|
0 |
0 |
defined $def ? : |
|
179
|
0 |
0 |
unless (defined $ans and length $ans) |
|
196
|
0 |
0 |
if (-e 'MANIFEST' or -e 'MANIFEST.SKIP') |
|
233
|
0 |
0 |
if ($@) |
|
242
|
0 |
0 |
unless ($response->is_success) |
|
269
|
0 |
0 |
if defined $no_libdoc |
|
271
|
0 |
0 |
if ($self->{'no_libdoc'}) |
|
274
|
0 |
0 |
unless $type eq 'libdoc' |
|
325
|
0 |
0 |
if ($self->can($method)) |
|
346
|
0 |
0 |
if (exists $metadata->{'provides'}) |
|
350
|
0 |
0 |
if (not exists $pkgs->{$p}{'version'}) { } |
|
354
|
0 |
0 |
if $pkgs->{$p}{'version'} ne $ver |
|
371
|
0 |
0 |
$self->verbose ? : |
|
395
|
0 |
0 |
$accept ? : |
|
398
|
0 |
0 |
if ($proceed) { } |
|
402
|
0 |
0 |
if ($use_email) |
|
426
|
0 |
0 |
if (-f $self->metafile) |
|
434
|
0 |
0 |
if $self->is_windowsish |
|
457
|
0 |
0 |
$^O =~ /win/i ? : |