view release on metacpan or  search on metacpan

lib/Bio/DB/BigFile.pm  view on Meta::CPAN

    my $class = shift;

    if (my $override = $ENV{UDC_CACHEDIR}) {
	Bio::DB::BigFile->udcSetDefaultDir($override);
	return;
    }

    my $path = Bio::DB::BigFile->udcGetDefaultDir();
    return if -w $path;
    my $tmp    = File::Spec->tmpdir();
    my ($user) = getpwuid($<);
    $user    ||= $<;
    $path      = File::Spec->catfile($tmp,"udcCache_$user");
    Bio::DB::BigFile->udcSetDefaultDir($path);
}


package Bio::DB::bbiFile;

# this method is fun but slow