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.