File Coverage

blib/lib/Crypt/OpenPGP/Key/Public/DSA.pm

Criterion	Covered	Total	%
statement	40	41	97.5
branch			n/a
condition	2	3	66.6
subroutine	13	14	92.8
pod	3	9	33.3
total	58	67	86.5

package Crypt::OpenPGP::Key::Public::DSA;
use strict;

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

sub can_sign { 1 }
sub abbrev { 'D' }

sub init {
    my $key = shift;
    $key->{key_data} = shift || Crypt::DSA::Key->new;
    $key;
}

sub keygen {
    my $class = shift;
    my %param = @_;
    require Crypt::DSA;
    my $dsa = Crypt::DSA->new;
    my $sec = $dsa->keygen( %param );
    my $pub = bless { }, 'Crypt::DSA::Key';
    for my $e (qw( p q g pub_key )) {
        $pub->$e( $sec->$e() );
    }
    ($pub, $sec);
}

sub public_props { qw( p q g y ) }
sub sig_props { qw( r s ) }

sub y { $_[0]->{key_data}->pub_key(@_[1..$#_]) }

sub size { $_[0]->{key_data}->size }

sub verify {
    my $key = shift;
    my($sig, $dgst) = @_;
    require Crypt::DSA;
    my $dsa = Crypt::DSA->new;
    my $dsa_sig = Crypt::DSA::Signature->new;
    $dsa_sig->r($sig->{r});
    $dsa_sig->s($sig->{s});
    $dsa->verify(
                  Key => $key->{key_data},
                  Digest => $dgst,
                  Signature => $dsa_sig
              );
}

1;