coela/RakudoBio

GenBank Parser using perl6

#example
use v6;
use RakudoBio::Genome;
use RakudoBio::Grammar::GenBank;
use RakudoBio::Grammar::Actions::GenBank;

my $gb = RakudoBio::Grammar::GenBank.parsefile("test.gbk", actions=>RakudoBio::Grammar::Actions::GenBank).ast;
for $gb.get_features('CDS') -> $cds {
  say $cds.annotation{"locus_tag"};
  say $cds.position;
}