view release on metacpan or  search on metacpan

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

    my $dir    = getcwd;
    my $tmpdir = File::Spec->tmpdir;
    chdir($tmpdir);
    my $result = $self->index_load($fh);
    chdir $dir;
    $result;
}

sub mtime {
    my $path = shift;
    ( stat($path) )[9];
}

1;
__END__


=head1 EXAMPLES

For illustrative purposes only, here is an extremely stupid SNP caller
that tallies up bases that are q>20 and calls a SNP if there are at