blob: 3a93e9afe60c304a9865b51d4ee1905b0d9a38cc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
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;
|