| line |
true |
false |
branch |
|
53
|
0 |
8 |
unless @modules |
|
55
|
0 |
27 |
unless /\A[a-z_]\w*(?:::[\w]+)*\Z/i |
|
58
|
0 |
8 |
unless $$self{'author'} |
|
59
|
0 |
8 |
unless $$self{'email'} |
|
65
|
0 |
8 |
unless ($$self{'distro'}) |
|
122
|
0 |
8 |
if (-e $$self{'basedir'}) |
|
123
|
0 |
0 |
unless $$self{'force'} |
|
130
|
0 |
0 |
if -e $$self{'basedir'} |
|
140
|
0 |
8 |
unless -d $$self{'basedir'} |
|
299
|
35 |
52 |
if ($$record{'license'} eq $$self{'license'}) |
|
313
|
35 |
0 |
if (defined $record) { } |
|
337
|
27 |
0 |
if (@dirparts) |
|
339
|
21 |
6 |
unless (-d $dir) |
|
671
|
16 |
16 |
if exists $$ref{'nickname'} |
|
887
|
8 |
24 |
unless (-d $tdir) |
|
949
|
1 |
7 |
ref $$self{'builder'} eq 'ARRAY' ? : |
|
970
|
8 |
0 |
if (not @build_instructions) { } |
|
1061
|
0 |
99 |
unless open my $fh, '>', $fname |
|
1063
|
0 |
99 |
unless close $fh |
|
1076
|
13 |
123 |
if $self->verbose |
|
1175
|
0 |
27 |
unless @reference_links |
|
1187
|
54 |
54 |
if exists $$ref{'nickname'} |