| line |
true |
false |
branch |
|
87
|
58 |
0 |
unless ref $either |
|
92
|
0 |
58 |
unless @modules |
|
94
|
0 |
600 |
unless /\A[a-z_]\w*(?:::[\w]+)*\Z/i |
|
97
|
0 |
58 |
if (not $self->{'author'} and $^O ne 'MSWin32') |
|
101
|
0 |
0 |
if (not $self->{'email'} and exists $ENV{'EMAIL'}) |
|
105
|
0 |
58 |
unless $self->{'author'} |
|
106
|
0 |
58 |
unless $self->{'email'} |
|
117
|
0 |
58 |
unless (defined $self->{'distro'} and length $self->{'distro'}) |
|
135
|
58 |
0 |
if $self->{'genlicense'} |
|
137
|
2 |
56 |
unless $self->{'manifest_skip'} |
|
175
|
28 |
30 |
if (-e $self->{'basedir'}) |
|
178
|
0 |
28 |
unless $self->{'force'} |
|
184
|
0 |
28 |
if -e $self->{'basedir'} |
|
193
|
0 |
58 |
unless -d $self->{'basedir'} |
|
251
|
0 |
58 |
unless defined $key |
|
252
|
0 |
58 |
$key =~ /::/ ? : |
|
255
|
0 |
58 |
unless eval {
do {
&require_module($class);
1
}
} and $class->can('new') |
|
257
|
0 |
58 |
unless (defined $class) |
|
260
|
0 |
0 |
unless defined $class |
|
269
|
658 |
0 |
defined $record ? : |
|
295
|
600 |
0 |
if (@dirparts) |
|
297
|
479 |
121 |
unless (-d $dir) |
|
419
|
34 |
0 |
$self->{'license_record'} ? : |
|
421
|
0 |
34 |
$self->{'fatalize'} ? : |
|
489
|
0 |
0 |
$self->{'license_record'} ? : |
|
491
|
0 |
0 |
$self->{'fatalize'} ? : |
|
580
|
24 |
0 |
$self->{'license_record'} ? : |
|
582
|
0 |
24 |
$self->{'fatalize'} ? : |
|
715
|
116 |
116 |
if exists $ref->{'nickname'} |
|
807
|
0 |
58 |
$self->{'fatalize'} ? : |
|
899
|
0 |
58 |
$self->{'fatalize'} ? : |
|
979
|
116 |
174 |
unless (-d $tdir) |
|
1027
|
0 |
2 |
unless chdir $self->{'basedir'} |
|
1034
|
0 |
2 |
unless chdir $orig_dir |
|
1078
|
0 |
58 |
ref $self->{'builder'} eq 'ARRAY' ? : |
|
1119
|
58 |
0 |
if (not @build_instructions) { } |
|
1174
|
58 |
0 |
if (ref $type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (not ref $type) { } |
|
1195
|
224 |
2 |
$self->{'manifest_skip'} ? : |
|
1279
|
0 |
1348 |
unless open my $fh, '>', $fname |
|
1281
|
0 |
1348 |
unless close $fh |
|
1294
|
0 |
2003 |
if $self->verbose |
|
1311
|
0 |
2 |
unless open my $fh, '<', $file |
|
1313
|
0 |
2 |
unless close $fh |
|
1317
|
0 |
2 |
unless open $fh, '>', $file |
|
1322
|
4 |
52 |
if ($line =~ /$regex/) |
|
1327
|
24 |
4 |
unless $found |
|
1329
|
0 |
2 |
unless close $fh |
|
1365
|
0 |
600 |
$self->{'fatalize'} ? : |
|
1424
|
0 |
600 |
unless @reference_links |
|
1436
|
1200 |
1200 |
if exists $ref->{'nickname'} |