File Coverage

blib/lib/Crypt/OpenPGP/Key/Secret.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	2	3	66.6
total	29	30	96.6

package Crypt::OpenPGP::Key::Secret;
use strict;

use Crypt::OpenPGP::Key;
use Crypt::OpenPGP::ErrorHandler;
use base qw( Crypt::OpenPGP::Key Crypt::OpenPGP::ErrorHandler );

sub is_secret { 1 }
sub all_props { ($_[0]->public_props, $_[0]->secret_props) }

sub public_key {
    my $key = shift;
    my @pub = $key->public_props;
    my $pub = Crypt::OpenPGP::Key::Public->new($key->alg);
    for my $e (@pub) {
        $pub->$e($key->$e());
    }
    $pub;
}

1;