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.