use strict;
#ABSTRACT: The md5 plugin (default)
use Moo;
has '+plugin_name' => (
is => 'ro',
default => 'Archive::BagIt::Plugin::Manifest::MD5',
);
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::MD5"));
$self->algorithm($self->bagit->plugins->{"Archive::BagIt::Plugin::Algorithm::MD5"});
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::MD5 - The md5 plugin (default)
=head1 VERSION
version 0.060
=head1 NAME
Archive::BagIt::Plugin::Manifest::MD5 - The md5 plugin (default)
=head1 VERSION
version 0.060
=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
=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 and Andreas Romeyke.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=head1 AUTHOR
Rob Schmidt <rjeschmi@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2020 by Rob Schmidt and William Wueppelmann and Andreas Romeyke.
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