File Coverage

blib/lib/Digest/SHA2.pm

Criterion	Covered	Total	%
statement	11	15	73.3
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod	2	2	100.0
total	17	22	77.2

package Digest::SHA2;

use base 'Digest::base';
use strict;
use warnings;
require Exporter;

# addfile() and b64digest() already implemented by Digest::base
our @EXPORT_OK = qw(new hashsize rounds clone reset add digest hexdigest base64digest);
our @EXPORT = qw();
our $VERSION = '1.1.1';
#our @ISA = qw(Exporter);

require XSLoader;
XSLoader::load('Digest::SHA2', $VERSION);

# Preloaded methods go here.

#sub addfile
#{
#    my ($self, $handle) = @_;
#    my ($package, $file, $line) = caller;
#
#    if (!ref($handle)) {
#        $handle = "$package::$handle" unless ($handle =~ /(\:\:|\')/);
#    }
#
#    while (read($handle, my $data, 4*1024)) {
#        $self->add($data);
#    }
#}

sub digest
{
    my ($self) = @_;
    return pack("H*", $self->hexdigest());
}

sub base64digest   # legacy
{
    print STDERR "\nWARNING: base64digest() is now deprecated, and ";
    print STDERR "will be removed in future\n";
    print STDERR "releases; please use b64digest() instead.\n\n";
    return shift->b64digest(@_);
}

1;

__END__