| line |
true |
false |
branch |
|
87
|
44 |
0 |
unless ref $either |
|
92
|
0 |
44 |
unless @modules |
|
94
|
0 |
520 |
unless /\A[a-z_]\w*(?:::[\w]+)*\Z/i |
|
97
|
0 |
44 |
if (not $self->{'author'} and $^O ne 'MSWin32') |
|
101
|
0 |
0 |
if (not $self->{'email'} and exists $ENV{'EMAIL'}) |
|
105
|
0 |
44 |
unless $self->{'author'} |
|
106
|
0 |
44 |
unless $self->{'email'} |
|
117
|
0 |
44 |
unless (defined $self->{'distro'} and length $self->{'distro'}) |
|
135
|
44 |
0 |
if $self->{'genlicense'} |
|
137
|
2 |
42 |
unless $self->{'manifest_skip'} |
|
175
|
21 |
23 |
if (-e $self->{'basedir'}) |
|
178
|
0 |
21 |
unless $self->{'force'} |
|
183
|
0 |
21 |
if -e $self->{'basedir'} |
|
191
|
0 |
44 |
unless -d $self->{'basedir'} |
|
249
|
0 |
44 |
unless defined $key |
|
250
|
0 |
44 |
$key =~ /::/ ? : |
|
253
|
0 |
44 |
unless eval {
do {
&require_module($class);
1
}
} and $class->can('new') |
|
255
|
0 |
44 |
unless (defined $class) |
|
258
|
0 |
0 |
unless defined $class |
|
267
|
564 |
0 |
defined $record ? : |
|
293
|
520 |
0 |
if (@dirparts) |
|
295
|
417 |
103 |
unless (-d $dir) |
|
412
|
18 |
0 |
$self->{'license_record'} ? : |
|
414
|
0 |
18 |
$self->{'fatalize'} ? : |
|
482
|
0 |
0 |
$self->{'license_record'} ? : |
|
484
|
0 |
0 |
$self->{'fatalize'} ? : |
|
573
|
26 |
0 |
$self->{'license_record'} ? : |
|
575
|
0 |
26 |
$self->{'fatalize'} ? : |
|
708
|
44 |
88 |
if exists $ref->{'nickname'} |
|
800
|
0 |
44 |
$self->{'fatalize'} ? : |
|
892
|
0 |
44 |
$self->{'fatalize'} ? : |
|
972
|
88 |
132 |
unless (-d $tdir) |
|
1019
|
0 |
2 |
unless chdir $self->{'basedir'} |
|
1026
|
0 |
2 |
unless chdir $orig_dir |
|
1070
|
0 |
44 |
ref $self->{'builder'} eq 'ARRAY' ? : |
|
1111
|
44 |
0 |
if (not @build_instructions) { } |
|
1166
|
44 |
0 |
if (ref $type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (not ref $type) { } |
|
1187
|
168 |
2 |
$self->{'manifest_skip'} ? : |
|
1271
|
0 |
1086 |
unless open my $fh, '>', $fname |
|
1273
|
0 |
1086 |
unless close $fh |
|
1286
|
0 |
1637 |
if $self->verbose |
|
1303
|
0 |
2 |
unless open my $fh, '<', $file |
|
1305
|
0 |
2 |
unless close $fh |
|
1309
|
0 |
2 |
unless open $fh, '>', $file |
|
1314
|
4 |
52 |
if ($line =~ /$regex/) |
|
1319
|
24 |
4 |
unless $found |
|
1321
|
0 |
2 |
unless close $fh |
|
1359
|
0 |
520 |
$self->{'fatalize'} ? : |
|
1418
|
0 |
520 |
unless @reference_links |
|
1430
|
520 |
1040 |
if exists $ref->{'nickname'} |