line |
true |
false |
branch |
13
|
1 |
0 |
unless delete $self->{'applied'} |
26
|
0 |
0 |
unless opendir my $dh, $dir |
31
|
0 |
0 |
unless $name =~ /\A[a-z0-9_][a-z0-9_-]*\z/ |
33
|
0 |
0 |
$do_rw ? : |
34
|
0 |
0 |
unless sysopen my $fh, $fn, $mode |
35
|
0 |
0 |
unless CORE::binmode $fh, $self->binmode |
46
|
0 |
0 |
if (eof $fh) |
48
|
0 |
0 |
unless $dep =~ s/^-- preceding-patch(?:es)? =(?=(?: \S+)+$)// |
65
|
0 |
0 |
if (my(@u) = $self->grep_unknown($self->applied)) |
66
|
0 |
0 |
$skip_missing ? : |
|
0 |
0 |
if (my(@u) = $skip_missing ? () : $self->grep_unapplied($self->patches)) |
67
|
0 |
0 |
unless not @prob |
74
|
0 |
0 |
unless my(@missing) = $self->grep_unapplied($self->patches) |
77
|
0 |
0 |
unless ($self->grep_unapplied($self->deps_of($name))) |
92
|
0 |
0 |
$do_recreate ? : |
|
0 |
0 |
if exists $patches->{$name} xor not !$do_recreate |
97
|
0 |
0 |
if ($do_recreate) |
99
|
0 |
0 |
if @content and $content[0] =~ /^-- preceding-patch(?:es)? = / |
107
|
0 |
0 |
unless @dep |
118
|
1 |
14 |
@_ == 2 && $_[0] eq '-e' ? : |
|
1 |
15 |
@_ == 2 && $_[0] eq '-r' ? : |
|
2 |
16 |
@_ == 1 && !($_[0] =~ /^-/) ? : |
125
|
1 |
3 |
if do {
BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"}
'' eq $ENV{'EDITOR'}
} |