Branch Coverage

blib/lib/Crypt/OpenPGP/Message.pm

Criterion	Covered	Total	%
branch	10	16	62.5

line	true	false	branch
21	0	57	if (not $msg->{'_data'} and my $file = $param{'Filename'})
23	0	0	unless open FH, $file
29	0	57	unless $msg->read
36	0	57	unless my $data = $msg->{'_data'}
38	1	56	if (not $msg->{'is_packet_stream'} and $data =~ /-----BEGIN PGP SIGNED MESSAGE/)
55	5	52	if (not $msg->{'is_packet_stream'} and $data =~ /^-----BEGIN PGP/m)
57	0	5	unless my $rec = 'Crypt::OpenPGP::Armour'->unarmour($data)
65	1	56	if $pt