[Bioperl-guts-l] bioperl-live/Bio WebAgent.pm,1.8,1.9

Brian Osborne bosborne at pub.open-bio.org
Fri Feb 3 23:17:29 EST 2006


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

Modified Files:
	WebAgent.pm 
Log Message:
Remove PODs


Index: WebAgent.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/WebAgent.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** WebAgent.pm	16 Dec 2005 22:57:40 -0000	1.8
--- WebAgent.pm	4 Feb 2006 04:17:27 -0000	1.9
***************
*** 97,110 ****
  
  sub new {
!     my $class = shift;
  
!     my $self = $class->SUPER::new();
!     while( @_ ) {
! 	my $key = shift;
!         $key =~ s/^-//;
!         $self->$key(shift);
!     }
  
!     return $self; # success - we hope!
  
  }
--- 97,110 ----
  
  sub new {
! 	my $class = shift;
  
! 	my $self = $class->SUPER::new();
! 	while( @_ ) {
! 		my $key = shift;
! 		$key =~ s/^-//;
! 		$self->$key(shift);
! 	}
  
! 	return $self; # success - we hope!
  
  }
***************
*** 124,128 ****
     my ($self,$value) = @_;
     if( defined $value) {
!        $self->{'_url'} = $value;
     }
     return $self->{'_url'};
--- 124,128 ----
     my ($self,$value) = @_;
     if( defined $value) {
! 		$self->{'_url'} = $value;
     }
     return $self->{'_url'};



More information about the Bioperl-guts-l mailing list