[Bioperl-l] Problem with Bio::Annotation

[Harry Wild]

Hi bioperl Community!

I'm trying to write out genome data from a relational database to Genbank
format. 
But I'm not able to get the annotations out of the Seq-Objects that I
create.

My little test-code

	use Bio::SeqIO;
	use Bio::Seq;
	use Bio::Annotation;

	$out = Bio::SeqIO->new( -file => ">/home/wild/test1.gb" ,
                       	                      -format => 'GenBank');

	$seq = Bio::Seq->new( '-seq' => 'atgcctgatctggatcgtt',
                                             '-display_id' => 'something',
                                             '-accession_number' =>
'AC_000001');

	$seq->annotation( new Bio::Annotation( '-description' => 'some
description'));

	$out->write_seq($seq);

	$out->close;

always produces the following output:

Can't locate object method "get_Annotations" via package "Bio::Annotation"
at 
/usr/local/lib/perl5/site_perl/5.005/Bio/SeqIO/genbank.pm line 466.

What's wrong with my code?

Thanks for help,
Harry

-- 
+++ GMX - Mail, Messaging & more  http://www.gmx.net +++
NEU: Mit GMX ins Internet. Rund um die Uhr für 1 ct/ Min. surfen!