Branch Coverage

blib/lib/SQL/PatchDAG.pm
Criterion Covered Total %
branch 9 46 19.5


line true false branch
12 1 0 unless delete $self->{'applied'}
25 0 0 unless opendir my $dh, $dir
30 0 0 unless $name =~ /\A[a-z0-9_][a-z0-9_-]*\z/
32 0 0 $do_rw ? :
33 0 0 unless sysopen my $fh, $fn, $mode
34 0 0 unless CORE::binmode $fh, $self->binmode
45 0 0 if (eof $fh)
47 0 0 unless $dep =~ s/^-- preceding-patch(?:es)? =(?=(?: \S+)+$)//
64 0 0 if (my(@u) = $self->grep_unknown($self->applied))
65 0 0 $skip_missing ? :
0 0 if (my(@u) = $skip_missing ? () : $self->grep_unapplied($self->patches))
66 0 0 unless not @prob
73 0 0 unless my(@missing) = $self->grep_unapplied($self->patches)
76 0 0 unless ($self->grep_unapplied($self->deps_of($name)))
91 0 0 $do_recreate ? :
0 0 if exists $patches->{$name} xor not !$do_recreate
96 0 0 if ($do_recreate)
98 0 0 if @content and $content[0] =~ /^-- preceding-patch(?:es)? = /
106 0 0 unless @dep
117 1 14 @_ == 2 && $_[0] eq '-e' ? :
1 15 @_ == 2 && $_[0] eq '-r' ? :
2 16 @_ == 1 && !($_[0] =~ /^-/) ? :
124 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'} }