| 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!}