| line |
true |
false |
branch |
|
86
|
46 |
0 |
unless ref $either |
|
91
|
0 |
46 |
unless @modules |
|
93
|
0 |
552 |
unless /\A[a-z_]\w*(?:::[\w]+)*\Z/i |
|
96
|
0 |
46 |
if (not $self->{'author'} and $^O ne 'MSWin32') |
|
100
|
0 |
0 |
if (not $self->{'email'} and exists $ENV{'EMAIL'}) |
|
104
|
0 |
46 |
unless $self->{'author'} |
|
105
|
0 |
46 |
unless $self->{'email'} |
|
116
|
0 |
46 |
unless (defined $self->{'distro'} and length $self->{'distro'}) |
|
135
|
2 |
44 |
unless $self->{'manifest_skip'} |
|
173
|
22 |
24 |
if (-e $self->{'basedir'}) |
|
176
|
0 |
22 |
unless $self->{'force'} |
|
182
|
0 |
22 |
if -e $self->{'basedir'} |
|
191
|
0 |
46 |
unless -d $self->{'basedir'} |
|
609
|
598 |
0 |
defined $record ? : |
|
630
|
552 |
0 |
if (@dirparts) |
|
632
|
461 |
91 |
unless (-d $dir) |
|
754
|
28 |
0 |
$self->{'license_record'} ? : |
|
756
|
0 |
28 |
$self->{'fatalize'} ? : |
|
805
|
0 |
0 |
$self->{'license_record'} ? : |
|
807
|
0 |
0 |
$self->{'fatalize'} ? : |
|
896
|
18 |
0 |
$self->{'license_record'} ? : |
|
898
|
0 |
18 |
$self->{'fatalize'} ? : |
|
1013
|
92 |
92 |
if exists $ref->{'nickname'} |
|
1108
|
0 |
46 |
$self->{'fatalize'} ? : |
|
1200
|
0 |
46 |
$self->{'fatalize'} ? : |
|
1280
|
92 |
138 |
unless (-d $tdir) |
|
1328
|
0 |
2 |
unless chdir $self->{'basedir'} |
|
1335
|
0 |
2 |
unless chdir $orig_dir |
|
1379
|
0 |
46 |
ref $self->{'builder'} eq 'ARRAY' ? : |
|
1420
|
46 |
0 |
if (not @build_instructions) { } |
|
1475
|
46 |
0 |
if (ref $type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (not ref $type) { } |
|
1496
|
176 |
2 |
$self->{'manifest_skip'} ? : |
|
1580
|
0 |
1098 |
unless open my $fh, '>', $fname |
|
1582
|
0 |
1098 |
unless close $fh |
|
1595
|
0 |
1699 |
if $self->verbose |
|
1612
|
0 |
2 |
unless open my $fh, '<', $file |
|
1614
|
0 |
2 |
unless close $fh |
|
1618
|
0 |
2 |
unless open $fh, '>', $file |
|
1623
|
4 |
48 |
if ($line =~ /$regex/) |
|
1628
|
22 |
4 |
unless $found |
|
1630
|
0 |
2 |
unless close $fh |
|
1666
|
0 |
552 |
$self->{'fatalize'} ? : |
|
1725
|
0 |
552 |
unless @reference_links |
|
1737
|
1104 |
1104 |
if exists $ref->{'nickname'} |