| line |
true |
false |
branch |
|
87
|
56 |
13 |
unless ref $either |
|
92
|
0 |
69 |
unless @modules |
|
94
|
0 |
529 |
unless /\A[a-z_]\w*(?:::[\w]+)*\Z/i |
|
97
|
0 |
69 |
if (not @{$self->{'author'};} and $^O ne "MSWin32") |
|
103
|
0 |
0 |
exists $ENV{'EMAIL'} ? : |
|
|
0 |
0 |
if defined $self->{'author'} |
|
109
|
0 |
69 |
unless defined $self->{'author'} and ref $self->{'author'} eq "ARRAY" and @{$self->{'author'};} > 0 |
|
125
|
13 |
56 |
if grep {not $_ =~ /
\A
(?>
(?: # Author
[^\s<>]+
\s+
)+
)
<[^<>]+> # Email
\s*
\z
/x;} @{$$self{"author"};} |
|
135
|
0 |
56 |
unless (defined $self->{'distro'} and length $self->{'distro'}) |
|
153
|
56 |
0 |
if $self->{'genlicense'} |
|
155
|
2 |
54 |
unless $self->{'manifest_skip'} |
|
192
|
28 |
30 |
if (-e $self->{'basedir'}) |
|
195
|
0 |
28 |
unless $self->{'force'} |
|
203
|
0 |
58 |
unless -d $self->{'basedir'} |
|
261
|
0 |
56 |
unless defined $key |
|
262
|
0 |
56 |
$key =~ /::/ ? : |
|
265
|
0 |
56 |
unless eval {
do {
&require_module($class);
1
}
} and $class->can("new") |
|
267
|
0 |
56 |
unless (defined $class) |
|
270
|
0 |
0 |
unless defined $class |
|
280
|
572 |
0 |
defined $record ? : |
|
306
|
516 |
0 |
if (@dirparts) |
|
308
|
213 |
303 |
unless (-d $dir) |
|
428
|
32 |
0 |
$self->{'license_record'} ? : |
|
430
|
0 |
32 |
$self->{'fatalize'} ? : |
|
494
|
32 |
0 |
unless defined $self->{'github'} |
|
532
|
0 |
0 |
$self->{'license_record'} ? : |
|
538
|
0 |
0 |
$self->{'fatalize'} ? : |
|
629
|
24 |
0 |
$self->{'license_record'} ? : |
|
631
|
0 |
24 |
$self->{'fatalize'} ? : |
|
676
|
24 |
0 |
unless defined $self->{'github'} |
|
790
|
56 |
112 |
if $ref->{'option'} and not $$self{$ref->{'option'}} |
|
793
|
56 |
56 |
if exists $ref->{'nickname'} |
|
795
|
0 |
112 |
$ref->{'option'} ? : |
|
884
|
0 |
56 |
$self->{'fatalize'} ? : |
|
976
|
0 |
56 |
$self->{'fatalize'} ? : |
|
1056
|
58 |
222 |
unless (-d $tdir) |
|
1103
|
0 |
2 |
unless chdir $self->{'basedir'} |
|
1110
|
0 |
2 |
unless chdir $orig_dir |
|
1154
|
0 |
56 |
ref $self->{'builder'} eq 'ARRAY' ? : |
|
1195
|
56 |
0 |
if (not @build_instructions) { } |
|
1250
|
56 |
0 |
if (ref $type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (not ref $type) { } |
|
1271
|
216 |
2 |
$self->{'manifest_skip'} ? : |
|
1354
|
608 |
633 |
if (-f $fname) |
|
1355
|
1 |
607 |
unless ($self->{'force'}) |
|
1362
|
0 |
1240 |
unless open my $fh, ">", $fname |
|
1364
|
0 |
1240 |
unless close $fh |
|
1377
|
0 |
1572 |
if $self->verbose |
|
1394
|
0 |
2 |
unless open my $fh, "<", $file |
|
1396
|
0 |
2 |
unless close $fh |
|
1400
|
0 |
2 |
unless open $fh, ">", $file |
|
1405
|
4 |
52 |
if ($line =~ /$regex/) |
|
1410
|
24 |
4 |
unless $found |
|
1412
|
0 |
2 |
unless close $fh |
|
1450
|
0 |
516 |
$self->{'fatalize'} ? : |
|
1509
|
0 |
516 |
unless @reference_links |
|
1518
|
516 |
1032 |
if $ref->{'option'} and not $$self{$ref->{'option'}} |
|
1521
|
0 |
1032 |
$ref->{'option'} ? : |
|
1523
|
516 |
516 |
if exists $ref->{'nickname'} |