CDF
Probe
| No package variables defined. |
| index | No description | Code |
| is_mismatch | No description | Code |
| mismatch_position | No description | Code |
| new | No description | Code |
| original_probe_number | No description | Code |
| original_probeset | No description | Code |
| probe_mismatch_base | No description | Code |
| probe_target_base | No description | Code |
| probepair_number | No description | Code |
| x | No description | Code |
| y | No description | Code |
Methods description
Methods code
sub index
{ my $self=shift;
if (my $q=shift) {
$self->{"INDEX"}=$q;
}
return $self->{"INDEX"};}
sub is_mismatch
{ my $self=shift;
return !($self->probe_target_base() eq $self->probe_mismatch_base());}
sub mismatch_position
{ my $self=shift;
if (my $q=shift) {
$self->{"POS"}=$q;
}
return $self->{"POS"};}
sub new
{ my $class=shift;
my $q=shift;
my $self={};
bless $self,$class;
return $self;}
sub original_probe_number
{ my $self=shift;
return $self->{"EXPOS"};}
sub original_probeset
{ my $self=shift;
return $self->{"PROBESET"};}
sub probe_mismatch_base
{ my $self=shift;
if (my $q=shift) {
$self->{"PBASE"}=$q;
}
return $self->{"PBASE"};}
sub probe_target_base
{ my $self=shift;
if (my $q=shift) {
$self->{"PBASE"}=$q;
}
return $self->{"PBASE"};}
sub probepair_number
{ my $self=shift;
if (my $q=shift) {
$self->{"ATOM"}=$q;
}
return $self->{"ATOM"};}
sub x
{ my $self=shift;
if (my $q=shift) {
$self->{"X"}=$q;
}
return $self->{"X"};}
sub y
{ my $self=shift;
if (my $q=shift) {
$self->{"Y"}=$q;
}
return $self->{"Y"};}
General documentation
No general documentation available.