| line |
true |
false |
branch |
|
80
|
3 |
0 |
unless ref $either |
|
86
|
0 |
3 |
if (ref $self->{'builder'} eq 'ARRAY') |
|
94
|
0 |
3 |
unless (@modules) |
|
98
|
0 |
6 |
unless (/\A [[:alpha:]_] \w* (?: [:] [:] [\w]+ )* \Z /imsx) |
|
104
|
0 |
3 |
unless ($self->{'author'}) |
|
107
|
0 |
3 |
unless ($self->{'email'}) |
|
115
|
0 |
3 |
unless ($self->{'distro'}) |
|
148
|
0 |
3 |
unless open my $fh, '>', $file |
|
150
|
0 |
57 |
unless print {$fh;} "$file\n" |
|
152
|
0 |
3 |
unless close $fh |
|
225
|
0 |
3 |
unless (-d $tdir) |
|
270
|
3 |
0 |
unless (-d $twdir) |
|
360
|
27 |
549 |
if defined $opts{$key} |
|
366
|
90 |
786 |
if (ref $opts{$key} eq 'ARRAY') |
|
374
|
0 |
48 |
unless my $t = 'HTML::Template'->new('die_on_bad_params', 0, 'scalarref', \$template) |
|
396
|
0 |
3 |
unless my $template_dir = $ENV{'MODULE_TEMPLATE_DIR'} || $self->{'template_dir'} |
|
397
|
0 |
3 |
unless (-d $template_dir) |
|
403
|
0 |
57 |
if not -f $_ or $basename =~ /\A [.]/msx |
|
404
|
0 |
57 |
unless open my $template_file, '<', $_ |
|
410
|
0 |
57 |
unless close $template_file |
|
467
|
48 |
0 |
if (defined $license_record) { } |
|
468
|
48 |
0 |
if ($license_record->{'license'} eq 'perl') { } |
|
642
|
3 |
0 |
unless (-d $tdir) |