[Bioperl-l] Bio::Index::GenBank - by organism?

[Jay Hannah]

Many thanks to Ewan Birney et. al. for Bio::Index::*

I can throw away my awful grep based index-by-accession stuff.   :)

Any chance someone has also written an organism based index mechanism?  
Something like...

while (my $seq = $inx−>get_Seq_by_organism('*Xanthomonas*')) {
    print $seq->display_id . "\n";
}

Thanks,

j