[Bioperl-guts-l] [15541] bioperl-live/trunk/Bio/DB/SeqFeature/Segment.pm: adding refseq alias for ref per Sheldon's request

[Scott Cain]

Revision: 15541
Author:   scain
Date:     2009-02-18 10:22:25 -0500 (Wed, 18 Feb 2009)

Log Message:
-----------
adding refseq alias for ref per Sheldon's request

Modified Paths:
--------------
    bioperl-live/trunk/Bio/DB/SeqFeature/Segment.pm

Modified: bioperl-live/trunk/Bio/DB/SeqFeature/Segment.pm
===================================================================
--- bioperl-live/trunk/Bio/DB/SeqFeature/Segment.pm	2009-02-18 03:54:18 UTC (rev 15540)
+++ bioperl-live/trunk/Bio/DB/SeqFeature/Segment.pm	2009-02-18 15:22:25 UTC (rev 15541)
@@ -414,6 +414,7 @@
 sub seq_id  { shift->{seqid}  }
 sub strand  { shift->{strand} }
 sub ref     { shift->seq_id   }
+*refseq = \&ref;
 
 sub length  {
   my $self = shift;