[Bioperl-guts-l] bioperl-live/Bio/Annotation DBLink.pm,1.16,1.17

Stefan Kirov skirov at pub.open-bio.org
Thu Apr 7 11:51:50 EDT 2005


Update of /home/repository/bioperl/bioperl-live/Bio/Annotation
In directory pub.open-bio.org:/tmp/cvs-serv1154/Bio/Annotation

Modified Files:
	DBLink.pm 
Log Message:
Added url method to DBLink


Index: DBLink.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Annotation/DBLink.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** DBLink.pm	2 Feb 2005 22:13:22 -0000	1.16
--- DBLink.pm	7 Apr 2005 15:51:47 -0000	1.17
***************
*** 69,73 ****
    my $self = $class->SUPER::new(@args);
  
!   my ($database, $primary_id, $optional_id, $comment, $tag, $ns, $auth, $v) =
        $self->_rearrange([qw(DATABASE
  			    PRIMARY_ID
--- 69,73 ----
    my $self = $class->SUPER::new(@args);
  
!   my ($database, $primary_id, $optional_id, $comment, $tag, $ns, $auth, $v, $url) =
        $self->_rearrange([qw(DATABASE
  			    PRIMARY_ID
***************
*** 78,81 ****
--- 78,82 ----
  			    AUTHORITY
  			    VERSION
+ 			    URL
  			    )], @args);
    
***************
*** 89,92 ****
--- 90,94 ----
    $auth        && $self->authority($auth);
    defined($v)  && $self->version($v);
+   defined($url)  && $self->version($url);
  
    return $self;
***************
*** 306,309 ****
--- 308,328 ----
      return $self->{'version'};
  }
+ 
+ 
+ =head2 url
+ 
+  Title   : url
+  Usage   : $url    = $obj->url()
+  Function: URL which is associated with this DB link
+  Returns : string, full URL descriptor
+ 
+ =cut
+ 
+ sub url {
+     my $self = shift;
+     return $self->{'url'} = shift if @_;
+     return $self->{'url'};
+ }
+ 
  
  =head2 authority



More information about the Bioperl-guts-l mailing list