Branch Coverage

blib/lib/PGP/Mail.pm
Criterion Covered Total %
branch 33 38 86.8


line true false branch
104 0 28 if (not defined $line) { }
5 23 elsif (defined $line and $line =~ /^$/) { }
2 21 elsif ($line =~ /^[ \t]+/) { }
122 2 19 if ($header =~ m[^content-type:\s+(\S+/\S+)(;.*)?$]is)
123 2 0 if (lc $1 eq 'multipart/signed')
124 2 0 if ($header =~ m[protocol="?application/pgp]i)
133 3 2 unless ($$self{'PGPMIME'})
135 2 1 if ($line =~ /^-----BEGIN PGP SIGNED MESSAGE-----\s*$/)
146 1 2 unless ($$self{'PGPTEXT'} or $$self{'PGPMIME'})
154 2 2 if ($$self{'PGPTEXT'}) { }
197 2 8 if ($line =~ /^\[GNUPG:\] GOODSIG (\w+) /) { }
2 6 elsif ($line =~ /^\[GNUPG:\] BADSIG (\w+) /) { }
217 2 54 if ($state eq 'before' and $line eq "--$bound\n") { }
2 52 elsif ($state eq 'data' and $line eq "--$bound\n") { }
2 50 elsif ($state eq 'sig' and $line eq "--$bound--\n") { }
24 26 elsif ($state eq 'data') { }
22 4 elsif ($state eq 'sig') { }
250 2 0 if (sysopen SIGNATURE, $fn = "/tmp/file-$$-$i-" . time . '.dat', 194, 438) { }
260 0 2 unless (length $fn)