view release on metacpan or  search on metacpan

lib/Bio/DB/TFBS/transfac_pro.pm  view on Meta::CPAN

}

=head2 Helper methods

=cut

# internal method which does the indexing
sub _build_index {
    my ($self, $dat_dir, $force) = @_;

    # MLDBM would give us transparent complex data structures with DB_File,
    # allowing just one index file, but its yet another requirement and we
    # don't strictly need it

    my $index_dir = $self->index_directory;
    my $gene_index      = "$index_dir/gene.dat.index";
    my $reference_index = "$index_dir/reference.dat.index";
    my $matrix_index    = "$index_dir/matrix.dat.index";
    my $factor_index    = "$index_dir/factor.dat.index";
    my $fragment_index  = "$index_dir/fragment.dat.index";
    my $site_index      = "$index_dir/site.dat.index";