| line |
true |
false |
branch |
|
81
|
3 |
0 |
unless ref $either |
|
87
|
0 |
3 |
if (ref $$self{'builder'} eq 'ARRAY') |
|
95
|
0 |
3 |
unless (@modules) |
|
99
|
0 |
6 |
unless (/\A [[:alpha:]_] \w* (?: [:] [:] [\w]+ )* \Z /imsx) |
|
105
|
0 |
3 |
unless ($$self{'author'}) |
|
108
|
0 |
3 |
unless ($$self{'email'}) |
|
116
|
0 |
3 |
unless ($$self{'distro'}) |
|
149
|
0 |
3 |
unless open my $fh, '>', $file |
|
151
|
0 |
57 |
unless print {$fh;} "$file\n" |
|
153
|
0 |
3 |
unless close $fh |
|
226
|
0 |
3 |
unless (-d $tdir) |
|
271
|
3 |
0 |
unless (-d $twdir) |
|
323
|
3 |
6 |
unless (-d $xtdir) |
|
378
|
27 |
549 |
if defined $opts{$key} |
|
384
|
90 |
786 |
if (ref $opts{$key} eq 'ARRAY') |
|
392
|
0 |
48 |
unless my $t = 'HTML::Template'->new('die_on_bad_params', 0, 'scalarref', \$template) |
|
413
|
0 |
3 |
unless my $template_dir = $ENV{'MODULE_TEMPLATE_DIR'} || $$self{'template_dir'} |
|
415
|
0 |
3 |
unless (-d $template_dir) |
|
421
|
0 |
57 |
if not -f $_ or $basename =~ /\A [.]/msx |
|
422
|
0 |
57 |
unless open my $template_file, '<', $_ |
|
428
|
0 |
57 |
unless close $template_file |
|
485
|
48 |
0 |
if (defined $license_record) { } |
|
486
|
48 |
0 |
if ($$license_record{'license'} eq 'perl') { } |
|
660
|
3 |
0 |
unless (-d $tdir) |