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