File Coverage

blib/lib/Crypt/OpenPGP/MDC.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	2	2	100.0
condition			n/a
subroutine	10	10	100.0
pod	4	5	80.0
total	46	47	97.8

package Crypt::OpenPGP::MDC;
use strict;
use warnings;

our $VERSION = '1.19'; # VERSION

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

sub new {
    my $mdc = bless { }, shift;
    $mdc->init(@_);
}

sub init {
    my $mdc = shift;
    my %param = @_;
    if (my $data = $param{Data}) {
        my $dgst = Crypt::OpenPGP::Digest->new('SHA1');
        $mdc->{body} = $dgst->hash($data);
    }
    $mdc;
}

sub digest { $_[0]->{body} }

sub parse {
    my $class = shift;
    my($buf) = @_;
    my $mdc = $class->new;
    $mdc->{body} = $buf->get_bytes($buf->length - $buf->offset);
    $mdc;
}

sub save { $_[0]->{body} }

1;
__END__