view release on metacpan or  search on metacpan

lib/Apache2/FileHash.pm  view on Meta::CPAN

        return(Apache2::Const::OK);
    }
}

sub netloc
{
    my ($r, $filename) = @_;

    my (undef, undef, $suffix) = &File::Basename::fileparse($filename, qr/\.(.*?)$/);

    my ($package) = (caller(0))[0];
    $package =~ s#^.*:##;

    my $orig_filename = $filename;
    $filename =~ s/$suffix$//;

    my $num = Math::BigInt->new($filename);
    my $num_buckets = scalar(@{ $Config->[0]{BUCKETS} });
    my $bucket_index = $num % $num_buckets;
    my $bucket = $Config->[0]{BUCKETS}[$bucket_index];