File Coverage

lib/Archive/BagIt/Role/OpenSSL.pm

Criterion	Covered	Total	%
statement	31	34	91.1
branch			n/a
condition			n/a
subroutine	10	11	90.9
pod	1	1	100.0
total	42	46	91.3

package Archive::BagIt::Role::OpenSSL;
use strict;
use warnings;
use Archive::BagIt::Role::OpenSSL::Async;
use Class::Load qw(load_class);
use Carp qw(carp);
use Moo::Role;
use namespace::autoclean;
# ABSTRACT: A role that handles plugin loading
our $VERSION = '0.101'; # VERSION


has 'async_support' => (
    is        => 'ro',
    builder   => '_check_async_support',
    predicate => 1,
    lazy      => 1,
);


sub _get_hash_string_sync {
    my ($self, $fh, $blksize)=@_;
    my $obj = Archive::BagIt::Role::OpenSSL::Sync->new( name => $self->name);
    return $obj->calc_digest($fh, $blksize);
}

sub _get_hash_string_async {
    my ($self, $fh, $blksize) = @_;
    my $result;
    my $obj = Archive::BagIt::Role::OpenSSL::Async->new(name => $self->name);
    return $obj->calc_digest($fh, $blksize);
}


sub get_hash_string {
    my ($self, $fh) = @_;
    my $blksize = $self->get_optimal_bufsize($fh);
    return $self->_get_hash_string_async($fh, $blksize);
}

no Moo;
1;

__END__