File Coverage

blib/lib/Metabrik/File/Hash.pm

Criterion	Covered	Total	%
statement	9	50	18.0
branch	0	24	0.0
condition	0	12	0.0
subroutine	3	8	37.5
pod	1	5	20.0
total	13	99	13.1

#
# $Id$
#
# file::hash Brik
#
package Metabrik::File::Hash;
use strict;
use warnings;

use base qw(Metabrik);

sub brik_properties {
   return {
      revision => '$Revision$',
      tags => [ qw(unstable sha sha1 sha256 sha512 md5 md5sum sum) ],
      author => 'GomoR ',
      license => 'http://opensource.org/licenses/BSD-3-Clause',
      attributes => {
         input => [ qw(file) ],
      },
      commands => {
         sha1 => [ qw(input|OPTIONAL) ],
         sha256 => [ qw(input|OPTIONAL) ],
         sha512 => [ qw(input|OPTIONAL) ],
         md5 => [ qw(input|OPTIONAL) ],
      },
      require_modules => {
         'Crypt::Digest' => [ ],
      },
   };
}

sub sha1 {
   my $self = shift;
   my ($input) = @_;

   $input ||= $self->input;
   $self->brik_help_run_undef_arg('sha1', $input) or return;
   $self->brik_help_run_file_not_found('sha1', $input) or return;

   eval("use Crypt::Digest::SHA1 qw(sha1_file_hex);");
   if ($@) {
      chomp($@);
      return $self->log->error("sha1: unable to load function: $@");
   }

   return Crypt::Digest::SHA1::sha1_file_hex($input);
}

sub sha256 {
   my $self = shift;
   my ($input) = @_;

   $input ||= $self->input;
   $self->brik_help_run_undef_arg('sha256', $input) or return;
   $self->brik_help_run_file_not_found('sha256', $input) or return;

   eval("use Crypt::Digest::SHA256 qw(sha256_file_hex);");
   if ($@) {
      chomp($@);
      return $self->log->error("sha256: unable to load function: $@");
   }

   return Crypt::Digest::SHA256::sha256_file_hex($input);
}

sub sha512 {
   my $self = shift;
   my ($input) = @_;

   $input ||= $self->input;
   $self->brik_help_run_undef_arg('sha512', $input) or return;
   $self->brik_help_run_file_not_found('sha512', $input) or return;

   eval("use Crypt::Digest::SHA512 qw(sha512_file_hex);");
   if ($@) {
      chomp($@);
      return $self->log->error("sha512: unable to load function: $@");
   }

   return Crypt::Digest::SHA512::sha512_file_hex($input);
}

sub md5 {
   my $self = shift;
   my ($input) = @_;

   $input ||= $self->input;
   $self->brik_help_run_undef_arg('md5', $input) or return;
   $self->brik_help_run_file_not_found('md5', $input) or return;

   eval("use Crypt::Digest::MD5 qw(md5_file_hex);");
   if ($@) {
      chomp($@);
      return $self->log->error("md5: unable to load function: $@");
   }

   return Crypt::Digest::MD5::md5_file_hex($input);
}

1;

__END__