| line |
true |
false |
branch |
|
157
|
0 |
14 |
unless ($type and exists $CONFIG{'valid_type'}{$type}) |
|
158
|
0 |
0 |
unless defined $type |
|
163
|
14 |
0 |
UNIVERSAL::isa($_[0], 'HASH') ? : |
|
|
14 |
0 |
@_ ? : |
|
171
|
49 |
77 |
exists $args{$_} ? : |
|
176
|
1 |
13 |
defined $fields{'fdir'} ? : |
|
178
|
14 |
0 |
if ($fields{'regen'}) { } |
|
203
|
1 |
1 |
if ($key eq "all_defaults") |
|
211
|
0 |
1 |
unless exists $CONFIG{"df_$key"} |
|
213
|
1 |
0 |
if @_ |
|
231
|
1 |
9 |
if ($self->{'fdir'}) |
|
252
|
0 |
10 |
unless $self->{'flags'} & 1 |
|
256
|
1 |
9 |
$self->{'perly'} ? : |
|
262
|
0 |
2 |
unless chdir $self->{'pdir'} |
|
264
|
2 |
0 |
if (open RUN_REGEN, "$regen |") { } |
|
265
|
0 |
2 |
if $self->{'v'} |
|
267
|
0 |
0 |
if $self->{'v'} |
|
269
|
0 |
2 |
unless (close RUN_REGEN) |
|
300
|
9 |
13 |
if (ref $pfile eq 'SCALAR') { } |
|
|
1 |
12 |
elsif (ref $pfile eq 'ARRAY') { } |
|
|
1 |
11 |
elsif (ref $pfile eq 'GLOB') { } |
|
312
|
11 |
0 |
'File::Spec'->file_name_is_absolute($pfile) ? : |
|
315
|
0 |
11 |
unless (open PATCH, "< $full_name") |
|
323
|
0 |
22 |
if $self->{'v'} |
|
343
|
1 |
5 |
if (ref $pfile eq 'SCALAR') { } |
|
|
1 |
4 |
elsif (ref $pfile eq 'ARRAY') { } |
|
|
1 |
3 |
elsif (ref $pfile eq 'GLOB') { } |
|
355
|
3 |
0 |
'File::Spec'->file_name_is_absolute($pfile) ? : |
|
357
|
0 |
3 |
unless (open PATCHES, "< $full_name") |
|
365
|
0 |
6 |
if $self->{'v'} |
|
369
|
7 |
10 |
if $patch =~ /^\s*[#]/ |
|
370
|
0 |
10 |
if $patch =~ /^\s*$/ |
|
371
|
1 |
9 |
if ($patch =~ /^\s*!\s*perly$/) |
|
376
|
0 |
9 |
$descr ? : |
|
378
|
0 |
9 |
if ($@) |
|
398
|
8 |
15 |
@_ ? : |
|
401
|
21 |
2 |
unless $opts =~ /-[a-zA-Z]*p\d/ |
|
403
|
0 |
23 |
if $self->{'v'} > 1 and not $self->{'oldpatch'} |
|
422
|
0 |
22 |
$self->{'v'} ? : |
|
425
|
0 |
22 |
unless (chdir $self->{'pdir'}) |
|
431
|
0 |
22 |
if $self->{'v'} > 1 |
|
434
|
22 |
0 |
if (open PATCHBIN, "| $self->{'patchbin'} $opts $redir") { } |
|
437
|
0 |
22 |
unless (close PATCHBIN) |
|
447
|
10 |
12 |
if (defined $descr) |
|
452
|
0 |
22 |
unless (chdir $cwd) |