NAME

Data::DigestPath - the path generator as digest hash

SYNOPSIS

            

              
              
use Data::DigestPath;
my $dp   = Data::DigestPath->new;
my $path = $dp->make_path('foo'); # a/c/b/d/acbd18db4cc2f85cedef654fccc4a4d8
            
          

There are all options.

            

              
              
use Digest::SHA1 qw//;
use Data::DigestPath;
my $dp = Data::DigestPath->new(
    salt   => 'bar',
    depth  => 2,
    delim  => '-',
    digest => sub { Digest::SHA1::sha1_hex(@_) },
);
warn $dp->make_path('baz'); # 3-2-32b1bf1853e6c39e4a1c3dae941ab7094ff1d293
            
          

DESCRIPTION

Data::DigestPath makes the path as digest hash.

METHODS

new(%options)

the object constructor

%options

salt => $string // ''

depth => $integer // 4

delim => $string // '/'

digest => $code_ref // sub { Digest::MD5::md5_hex(@_) }

trancate => $bool // undef

If you set the trancate param TRUE value, then the last delimited string will trancate(= remove the delimited path strings from last string)

            

              
              
use Data::DigestPath;
my $dp = Data::DigestPath->new;
warn $dp->make_path; # d/4/1/d/d41d8cd98f00b204e9800998ecf8427e
$dp->trancate(1);
warn $dp->make_path; # d/4/1/d/8cd98f00b204e9800998ecf8427e
            
          

make_path($key[, $length])

generate the path

$key => $string // ''

$length => $file_length // full length

REPOSITORY

Data::DigestPath is hosted on github <http://github.com/bayashi/Data-DigestPath>

Welcome your patches and issues :D

AUTHOR

Dai Okabayashi <bayashi@cpan.org>

LICENSE

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.