File Coverage

blib/lib/Crypt/Keyczar/Encrypter.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	30	33	90.9

package Crypt::Keyczar::Encrypter;
use base 'Crypt::Keyczar';
use strict;
use warnings;
use Carp;


sub encrypt {
    my $self = shift;
    my $result = '';
    my $key = $self->get_key($self->primary);
    if (!$key) {
        croak "no primary key";
    }
    my $crypt = $key->get_engine();
    my $signer = $key->get_sign_engine();
    $result .= $key->get_header();
    $result .= $crypt->init(); # set iv?
    $result .= $crypt->encrypt($_[0]);
    $signer->update($result);
    $result .= $signer->sign();
    return $result;
}


1;
__END__