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