Branch Coverage

blib/lib/Mail/DKIM/PrivateKey.pm

Criterion	Covered	Total	%
branch	10	16	62.5

line	true	false	branch
28	17	26	if ($prms{'Data'}) { }
	26	0	elsif (defined $prms{'File'}) { }
	0	0	elsif ($prms{'Cork'}) { }
33	2	24	unless open my $file, "<", $prms{'File'}
37	48	312	if $line =~ /^---/
59	0	37	unless $self->data
78	0	37	unless (eval { do { local $SIG{'__DIE__'}; $cork = "Crypt::OpenSSL::RSA"->new_private_key($pkcs); 1 } })
83	0	37	unless $cork