use strict; use warnings; #ABSTRACT: The md5 plugin (default) package Archive::BagIt::Plugin::Manifest::SHA512; use Moose; with 'Archive::BagIt::Role::Manifest'; use Digest::SHA; use Sub::Quote; has 'plugin_name' => ( is => 'ro', default => 'Archive::BagIt::Plugin::Manifest::SHA512', ); has 'manifest_path' => ( is => 'ro', ); has 'manifest_files' => ( is => 'ro', ); has 'algorithm' => ( is => 'rw', ); sub BUILD { my ($self) = @_; $self->bagit->load_plugins(("Archive::BagIt::Plugin::Algorithm::SHA512")); $self->algorithm($self->bagit->plugins->{"Archive::BagIt::Plugin::Algorithm::SHA512"}); return 1; } sub verify_file { my ($self, $fh) = @_; return; } sub verify { my ($self) =@_; return; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Archive::BagIt::Plugin::Manifest::SHA512 - The md5 plugin (default) =head1 VERSION version 0.055 =head1 AVAILABILITY The latest version of this module is available from the Comprehensive Perl Archive Network (CPAN). Visit L<http://www.perl.com/CPAN/> to find a CPAN site near you, or see L<https://metacpan.org/module/Archive::BagIt/>. =head1 SOURCE The development version is on github at L<https://github.com/Archive-BagIt> and may be cloned from L<git://github.com/Archive-BagIt.git> =head1 BUGS AND LIMITATIONS You can make new bug reports, and view existing ones, through the web interface at L<http://rt.cpan.org>. =head1 AUTHOR Rob Schmidt <rjeschmi@gmail.com> =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2020 by Rob Schmidt and William Wueppelmann. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut