| 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'}) |
|
125
|
0 |
0 |
unless $self->{'force'} |
|
131
|
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) |
|
667
|
8 |
16 |
if exists $ref->{'nickname'} |
|
883
|
8 |
24 |
unless (-d $tdir) |
|
945
|
1 |
7 |
ref $self->{'builder'} eq 'ARRAY' ? : |
|
966
|
8 |
0 |
if (not @build_instructions) { } |
|
1057
|
0 |
99 |
unless open my $fh, '>', $fname |
|
1059
|
0 |
99 |
unless close $fh |
|
1072
|
13 |
123 |
if $self->verbose |
|
1171
|
0 |
27 |
unless @reference_links |
|
1183
|
27 |
54 |
if exists $ref->{'nickname'} |