File Coverage

blib/lib/Crypt/Keyczar/Signer.pm

Criterion	Covered	Total	%
statement	28	30	93.3
branch	4	6	66.6
condition	3	6	50.0
subroutine	5	5	100.0
pod	0	1	0.0
total	40	48	83.3

package Crypt::Keyczar::Signer;
use base 'Crypt::Keyczar::Verifier';
use strict;
use warnings;
use Carp;


sub sign {
    my $self = shift;
    my ($data, $expiration_time, $hidden) = @_;
    my $result = '';

    my $key = $self->get_key($self->primary);
    if (!$key) {
        croak "no primary key";
    }

    $result .= $key->get_header();
    my $engine = $key->get_engine;
    if (defined $expiration_time && $expiration_time > 0) {
        my $expiration = pack 'N1', $expiration_time;
        $engine->update($expiration);
        $result .= $expiration;
    }
    if (defined $hidden && length $hidden > 0) {
        $engine->update($hidden);
    }
    $engine->update($data);
    $engine->update(Crypt::Keyczar::FORMAT_BYTES());
    $result .= $engine->sign();

    return $result;
}

1;
__END__