CDF

Probe

Package variables General documentation Methods

Package variables top
No package variables defined.
Included modulestop
strict
warnings
Synopsistop
No synopsis!
Descriptiontop
No description!
Methodstop
indexNo descriptionCode
is_mismatchNo descriptionCode
mismatch_positionNo descriptionCode
newNo descriptionCode
original_probe_numberNo descriptionCode
original_probesetNo descriptionCode
probe_mismatch_baseNo descriptionCode
probe_target_baseNo descriptionCode
probepair_numberNo descriptionCode
xNo descriptionCode
yNo descriptionCode

Methods description


Methods code

indexdescriptiontopprevnext
sub index {
    my $self=shift;

    if (my $q=shift) {
	$self->{"INDEX"}=$q;
    }
    return $self->{"INDEX"};
}
is_mismatchdescriptiontopprevnext
sub is_mismatch {
    my $self=shift;
    return !($self->probe_target_base() eq $self->probe_mismatch_base());
}
mismatch_positiondescriptiontopprevnext
sub mismatch_position {
    my $self=shift;
    
    if (my $q=shift) {
	$self->{"POS"}=$q;
    }
    
    return $self->{"POS"};
}
newdescriptiontopprevnext
sub new {
    my $class=shift;
    my $q=shift;
    my $self={};

    bless $self,$class;


    return $self;
}
original_probe_numberdescriptiontopprevnext
sub original_probe_number {
    my $self=shift;
    return $self->{"EXPOS"};
}
original_probesetdescriptiontopprevnext
sub original_probeset {
    my $self=shift;
    return $self->{"PROBESET"};
}
probe_mismatch_basedescriptiontopprevnext
sub probe_mismatch_base {
    my $self=shift;
    
    if (my $q=shift) {
	$self->{"PBASE"}=$q;
    }
    
    return $self->{"PBASE"};
}
probe_target_basedescriptiontopprevnext
sub probe_target_base {
    my $self=shift;
    
    if (my $q=shift) {
	$self->{"PBASE"}=$q;
    }
    
    return $self->{"PBASE"};
}
probepair_numberdescriptiontopprevnext
sub probepair_number {
    my $self=shift;

    if (my $q=shift) {
	$self->{"ATOM"}=$q;
    }
    return $self->{"ATOM"};
}
xdescriptiontopprevnext
sub x {
    my $self=shift;
    
    if (my $q=shift) {
	$self->{"X"}=$q;
    }
    
    return $self->{"X"};
}
ydescriptiontopprevnext
sub y {
    my $self=shift;
    
    if (my $q=shift) {
	$self->{"Y"}=$q;
    }
    
    return $self->{"Y"};
}

General documentation

No general documentation available.