None available.
sub index_name
{ my $self = shift;
my ($path,$isdir) = @_;
return $self->SUPER::index_name($path,$isdir)
unless $isdir;
return File::Spec->catfile($path,'indexes','fasta.index');
}
1;
__END__} |
This is an early version, so there are certainly some bugs. Please
use the BioPerl bug tracking system to report bugs.
Lincoln Stein <lstein@cshl.org>.
Copyright (c) 2006 Cold Spring Harbor Laboratory.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.