File Coverage

blib/lib/Template/Plugin/Digest/SHA2.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch			n/a
condition	2	2	100.0
subroutine	11	11	100.0
pod	1	1	100.0
total	51	51	100.0

package Template::Plugin::Digest::SHA2;

use strict;
use warnings;
use vars qw($VERSION);

$VERSION = 0.01;

use base qw(Template::Plugin);
use Template::Plugin;
use Template::Stash;
use Digest::SHA2;

my $sha2;

$Template::Stash::SCALAR_OPS->{'sha2'}          = \&_sha2;
$Template::Stash::SCALAR_OPS->{'sha2_hex'}      = \&_sha2_hex;
$Template::Stash::SCALAR_OPS->{'sha2_base64'}   = \&_sha2_base64;

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

    my $hashlen = $options || 256;
    $sha2 = new Digest::SHA2 $hashlen;

    # now define the filter and return the plugin
    $context->define_filter('sha2',         \&_sha2);
    $context->define_filter('sha2_hex',     \&_sha2_hex);
    $context->define_filter('sha2_base64',  \&_sha2_base64);
    return bless {}, $class;
}

sub _sha2 {
    $sha2->reset();
    $sha2->add(join('', @_));
    return $sha2->digest();
}

sub _sha2_hex {
    $sha2->reset();
    $sha2->add(join('', @_));
    return $sha2->hexdigest();
}

sub _sha2_base64 {
    $sha2->reset();
    $sha2->add(join('', @_));
    return $sha2->b64digest();
}

1;

__END__