File Coverage

blib/lib/Data/DigestPath.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	13	18	72.2
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	43	48	89.5

package Data::DigestPath;
use strict;
use warnings;
use Digest::MD5 qw//;

our $VERSION = '0.04';

use Class::Accessor::Lite (
    rw  => [qw/ salt depth delim digest trancate /],
);

sub new {
    my ($class, %args) = @_;

    my $opt = {
        salt   => defined $args{salt}  ? delete $args{salt} : '',
        depth  => defined $args{depth} ? int( delete $args{depth} ) : 4,
        delim  => defined $args{delim} ? delete $args{delim} : '/',
        digest => ref $args{digest} eq 'CODE' ? delete $args{digest}
                    : sub { Digest::MD5::md5_hex(@_) },
        trancate => defined $args{trancate} ? delete $args{trancate} : undef,
    };

    bless $opt, $class;
}

sub make_path {
    my ($self, $key, $length) = @_;

    $key = '' unless defined $key;

    my $hash = $self->digest->($self->salt . $key);
    my $path = join(
        $self->delim,
        (split '', $hash)[ 0 .. $self->depth - 1 ],
        $length
            ? substr($hash, $self->trancate ? $self->depth : 0, $length)
            : substr($hash, $self->trancate ? $self->depth : 0)
    );

    return $path;
}


1;

__END__