File Coverage

blib/lib/Metabrik/String/Hash.pm

Criterion	Covered	Total	%
statement	9	30	30.0
branch	0	4	0.0
condition			n/a
subroutine	3	9	33.3
pod	1	5	20.0
total	13	48	27.0

#
# $Id$
#
# string::hash Brik
#
package Metabrik::String::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',
      commands => {
         sha1 => [ qw(data) ],
         sha256 => [ qw(data) ],
         sha512 => [ qw(data) ],
         md5 => [ qw(data) ],
      },
      require_modules => {
         'Crypt::Digest' => [ ],
      },
   };
}

sub _hash {
   my $self = shift;
   my ($function, $data) = @_;

   $self->brik_help_run_undef_arg($function, $data) or return;

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

   return Crypt::Digest::digest_data_hex(uc($function), $data);
}

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

   return $self->_hash('sha1', $data);
}

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

   return $self->_hash('sha256', $data);
}

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

   return $self->_hash('sha512', $data);
}

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

   return $self->_hash('md5', $data);
}

1;

__END__