File Coverage

blib/lib/Crypt/Perl/Ed25519/PublicKey.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	22	23	95.6

package Crypt::Perl::Ed25519::PublicKey;

use strict;
use warnings;

=encoding utf-8

=head1 NAME

Crypt::Perl::Ed25519::PublicKey

=head1 SYNOPSIS

    # This expects an octet string.
    my $import_key = Crypt::Perl::Ed25519::PublicKey->new( $pub_str );

    $key->verify( $message, $signature ) or die "Invalid sig for msg!";

    #----------------------------------------------------------------------

    # Returns an octet string.
    my $pub_str = $key->get_public();

    # Returns an object
    my $pub_obj = $key->get_public_key();

=head1 DESCRIPTION

This class implements Ed25519 verification.

=cut

use parent qw( Crypt::Perl::Ed25519::KeyBase );

sub new {
    my ($class, $pub) = @_;

    return bless {
        _public => $pub,
        _public_ar => [ unpack 'C*', $pub ],
    }, $class;
}

use constant {
    _PEM_HEADER => 'PUBLIC KEY',
    _ASN1 => q<
        FG_Key ::= SEQUENCE {
            algorithmIdentifier AlgorithmIdentifier,
            subjectPublicKey    BIT STRING
        }
    >,
};

sub _to_der_args {
    my ($self) = @_;

    return (

        # The leading bytes are the encoding of the inner CurvePrivateKey
        # (i.e., OCTET STRING).
        subjectPublicKey => $self->{'_public'},
    );
}

1;