Included libraries | Package variables | General documentation | Methods |
WebCvs | Raw content |
description | No description | Code |
new | No description | Code |
description | description | prev | next | Top |
my $self = shift; $self->{'description'} = shift if ( @_ ); return $self->{'description'}; } 1;}
new | description | prev | next | Top |
my $caller = shift; my $class = ref($caller) || $caller; my $self = $class->SUPER::new(@_); my ($dbid, $description, $adaptor ) = rearrange([qw(DBID DESCRIPTION ADAPTOR )],@_); $self->dbID ( $dbid ); $self->description ( $description ) if (defined $description); $self->adaptor ( $adaptor ); return $self; # success - we hope!}