File Coverage

lib/Archive/BagIt/Plugin/Manifest/SHA512.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Archive::BagIt::Plugin::Manifest::SHA512;
2             # ABSTRACT: The role to load the sha512 plugin (default for v1.0)
3             our $VERSION = '0.095'; # VERSION
4              
5 8     8   5854 use strict;
  8         16  
  8         294  
6 8     8   47 use warnings;
  8         13  
  8         240  
7 8     8   41 use Moo;
  8         13  
  8         58  
8             with 'Archive::BagIt::Role::Manifest';
9              
10             has '+plugin_name' => (
11             is => 'ro',
12             default => 'Archive::BagIt::Plugin::Manifest::SHA512',
13             );
14              
15             has 'manifest_path' => (
16             is => 'ro',
17             );
18              
19             has 'manifest_files' => (
20             is => 'ro',
21             );
22              
23             has '+algorithm' => (
24             is => 'rw',
25             );
26              
27             sub BUILD {
28             my ($self) = @_;
29             $self->bagit->load_plugins(("Archive::BagIt::Plugin::Algorithm::SHA512"));
30             $self->algorithm($self->bagit->plugins->{"Archive::BagIt::Plugin::Algorithm::SHA512"});
31             return 1;
32             }
33              
34              
35             1;
36              
37             __END__