[Bioperl-l] Bio::PrimarySeq changes

[Jason Eric Stajich]

I'm happy with the changes to add the id function, but the 
changes on line 194 seem to be left over debugging code?  I'll remove
unless Kris has a reason for it.

206 peptide ../bioperl/bioperl-live/Bio> cvs diff -r1.14 PrimarySeq.pm
Index: PrimarySeq.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/PrimarySeq.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -r1.14 -r1.15
194a195,197
> defined($seq) && print STDOUT "PR seq:$seq~~\n";
> 
> 
443a447,468
> 
> =head2 id
> 
>  Title   : id
>  Usage   : $id = $seq->id()
>  Function: This is mapped on display_id
>  Example :
>  Returns : 
>  Args    :
> 
> 
> =cut
> 
> sub  id {
>    my ($self,$value) = @_;
> 
>    if( defined $value ) {
>       return $self->display_id($value);
>    }
>    return $self->display_id();
> }
> 


Jason Stajich
jason@chg.mc.duke.edu
http://galton.mc.duke.edu/~jason/
(919)684-1806 (office) 
(919)684-2275 (fax) 
Center for Human Genetics - Duke University Medical Center
http://wwwchg.mc.duke.edu/