Probe documentation.

#### CDF

### Probe

Package variables | General documentation | Methods

Package variables | top

No package variables defined.

Included modules | top

strict
warnings

Synopsis | top

No synopsis!

Description | top

No description!

Methods | top

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

index | description | top | prev | next

sub index {

        my $self=shift;

        if (my $q=shift) {
    	$self->{"INDEX"}=$q;
        }
        return $self->{"INDEX"};

}

is_mismatch | description | top | prev | next

sub is_mismatch {

        my $self=shift;
        return !($self->probe_target_base() eq $self->probe_mismatch_base());

}

mismatch_position | description | top | prev | next

sub mismatch_position {

        my $self=shift;

        if (my $q=shift) {
    	$self->{"POS"}=$q;
        }

        return $self->{"POS"};

}

new | description | top | prev | next

sub new {

        my $class=shift;
        my $q=shift;
        my $self={};

        bless $self,$class;

        return $self;

}

original_probe_number | description | top | prev | next

sub original_probe_number {

        my $self=shift;
        return $self->{"EXPOS"};

}

original_probeset | description | top | prev | next

sub original_probeset {

        my $self=shift;
        return $self->{"PROBESET"};

}

probe_mismatch_base | description | top | prev | next

sub probe_mismatch_base {

        my $self=shift;

        if (my $q=shift) {
    	$self->{"PBASE"}=$q;
        }

        return $self->{"PBASE"};

}

probe_target_base | description | top | prev | next

sub probe_target_base {

        my $self=shift;

        if (my $q=shift) {
    	$self->{"PBASE"}=$q;
        }

        return $self->{"PBASE"};

}

probepair_number | description | top | prev | next

sub probepair_number {

        my $self=shift;

        if (my $q=shift) {
    	$self->{"ATOM"}=$q;
        }
        return $self->{"ATOM"};

}

x | description | top | prev | next

sub x {

        my $self=shift;

        if (my $q=shift) {
    	$self->{"X"}=$q;
        }

        return $self->{"X"};

}

y | description | top | prev | next

sub y {

        my $self=shift;

        if (my $q=shift) {
    	$self->{"Y"}=$q;
        }

        return $self->{"Y"};

}

## General documentation

No general documentation available.