Summary | Included libraries | Package variables | Synopsis | Description | General documentation | Methods |
WebCvs | Raw content |
print $genotype->variation()->name(), "\n";
print $genotype->allele1(), '/', $genotype->allele2(), "\n";
allele1 | Description | Code |
allele2 | Description | Code |
allele1 | code | next | Top |
Arg [1] : string $newval (optional) |
allele2 | code | prev | next | Top |
Arg [1] : string $newval (optional) |
allele1 | description | prev | next | Top |
my $self = shift; return $self->{'allele1'} = shift if(@_); return $self->{'allele1'};}
allele2 | description | prev | next | Top |
my $self = shift; return $self->{'allele2'} = shift if(@_); return $self->{'allele2'}; } 1;}
CONTACT | Top |