demo documentation.

Privates (from "my" definitions)

@ends = qw(748 550 650 50200000 900)

@names = qw(PF00755 PF00755 CLAT_HUMAN 10 AC073366 AC073366)

@id = qw(CLAT_HUMAN CLAT_HUMAN CLAT_HUMAN 10 AC073366 AC073366)

@method = qw(description PFAM SCOP REPEAT BLAST ANOTH)

@id2 = qw(CLAT_HUMAN CLAT_HUMAN not_same 10 AC073366 AC073366)

@types = qw(typ1 typ2 typ3 typ4 typ5 typ6)

@starts = qw(30 100 50 50150000 1 )

sub build_features {

    my ( $self, $opts ) = @_;
    my $spid  = $opts->{'segment'};
    my $start = $opts->{'start'};
    my $end   = $opts->{'end'};

    #  print  $self->config->{'needed_arg'}."\n";
    #
    # Create some dummy notes
    #
    my @notes = ();
    for ( my $i = 0 ; $i <= $#id ; $i++ ) {
        $notes[$i] = "Demo annotation $i ??";
    }

    # Create array of fearutes to return;
    my @features = ();
    for ( my $i = 0 ; $i <= $#id ; $i++ ) {

        next
          if (
            ( $id[$i] ne $spid )
            || ( defined($start)
                and ( $ends[$i] < $start or $starts[$i] > $end ) )
          );
        push @features, {
            'id'      => $id2[$i],
            'type'    => $types[$i],  # needed for proteinview protein
                                      # features names in graphical view
            'feature' => $names[$i],
            'method'  => $method[$i],
            'start'   => $starts[$i],
            'end'     => $ends[$i],
            'note'    => $notes[$i],
            'link'    => '/Docs/enstour/',
            'linktxt' => 'Tour',
        };
    }

    return @features;
}

1;

}

sub init {

    my $self = shift;
    $self->{'dsn'} = "demo";
    $self->{'capabilities'} = { 'features' => '1.0', };

}

build_features	No description	Code
init	No description	Code
length	No description	Code