| line |
true |
false |
branch |
|
64
|
0 |
108 |
if $attribute =~ /^_/ |
|
65
|
66 |
42 |
if $self->can($attribute) |
|
75
|
7 |
22 |
if @_ |
|
105
|
0 |
23 |
if keys %{$incoming;} |
|
107
|
0 |
23 |
unless $$args{'package'} |
|
109
|
11 |
12 |
unless $$args{'package'} =~ /\A$module_name_rx\z/o |
|
112
|
0 |
12 |
unless $$args{'profile'} =~ /\A$profile_name_rx\z/o |
|
119
|
0 |
12 |
unless $$args{$_} eq $orig |
|
130
|
0 |
12 |
unless (ref $$args{'extravars'} || '') eq 'HASH' |
|
133
|
0 |
12 |
unless (ref $$args{'localdirs'} || '') eq 'ARRAY' |
|
176
|
0 |
1 |
unless make_path($self->dist_name) |
|
225
|
6 |
0 |
-d $dir ? : |
|
231
|
0 |
0 |
if $$self{'_include_path'} |
|
242
|
2 |
11 |
unless ($$self{'_made_dist_dir'}) |
|
244
|
1 |
1 |
if -d $self->dist_name |
|
251
|
0 |
12 |
unless $args{'template'} |
|
254
|
1 |
11 |
if ($args{'template'} =~ /^Module\.pm$/) { } |
|
276
|
0 |
12 |
unless $t->process($args{'template'}, $vars, $outfile) |
|
288
|
0 |
6 |
unless -d $dir |
|
290
|
0 |
6 |
unless opendir my $dh, $dir |
|
295
|
6 |
0 |
$dir =~ /^(?:\Q$std_dir\E)/ ? : |
|
298
|
12 |
28 |
if $fname =~ /^\.{1,2}\z/ |
|
306
|
0 |
28 |
if -l $fpath |
|
308
|
4 |
24 |
if (-d $fpath) |
|
309
|
0 |
4 |
if ($$self{'nosubs'}) |
|
314
|
0 |
4 |
$subdir ? : |
|
332
|
0 |
24 |
unless -f $fpath |
|
334
|
10 |
14 |
$subdir ? : |
|
336
|
24 |
0 |
unless $$self{'_templates'}{$template} |
|
354
|
1 |
3 |
if @_ |
|
359
|
0 |
3 |
wantarray ? : |
|
366
|
1 |
18 |
if @_ |
|
370
|
15 |
3 |
wantarray ? : |
|
377
|
1 |
15 |
if @_ |
|
385
|
15 |
0 |
if -d $profile_dir |
|
388
|
0 |
15 |
wantarray ? : |
|
394
|
1 |
22 |
if @_ |
|
403
|
1 |
1 |
if @_ |
|
407
|
4 |
9 |
if /^_/ |
|
414
|
0 |
1 |
wantarray ? : |
|
421
|
1 |
34 |
if @_ |
|
433
|
1 |
28 |
if @_ |
|
443
|
1 |
13 |
if @_ |
|
457
|
0 |
13 |
wantarray ? : |
|
478
|
1 |
0 |
if (not -f catfile($self->dist_name, 'MANIFEST')) |