package Common::MD5Sum;
 
our $VERSION = '0.08';
 
use utf8;
use 5.10.0;
use strict;
use warnings FATAL => 'all';
use Digest::MD5 qw(md5_hex);
use Data::Dumper;
use vars qw($VERSION @EXPORT_OK);
 
require Exporter;
*import    = \&Exporter::import;
@EXPORT_OK = qw(hashsum);
 
sub refsum {
    my ($param) = @_;
    my $arg = ( ref $param ne 'ARRAY' ) ? [$param] : $param;
    md5_hex( Data::Dumper->new($arg)->Indent(0)->Sortkeys(1)->Dump );
}
 
1;