Raw content of Bio::Das::ProServer::SourceAdaptor::demo
<![CDATA[#########
# Author: ensembl dev
# Maintainer: ensembl dev
# Created: 2004-03-08
# Last Modified: 2004-03-12
# Builds DAS features for a demo database
#
package Bio::Das::ProServer::SourceAdaptor::demo;
=head1 AUTHOR
Ensembl Dev
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. See DISCLAIMER.txt for
disclaimers of warranty.
=cut
use strict;
use vars qw(@ISA);
use Bio::Das::ProServer::SourceAdaptor;
@ISA = qw(Bio::Das::ProServer::SourceAdaptor);
my @id = qw(CLAT_HUMAN CLAT_HUMAN CLAT_HUMAN 10 AC073366 AC073366);
my @id2 = qw(CLAT_HUMAN CLAT_HUMAN not_same 10 AC073366 AC073366);
my @names = qw(PF00755 PF00755 CLAT_HUMAN 10 AC073366 AC073366);
my @starts = qw(30 100 50 50150000 1 );
my @ends = qw(748 550 650 50200000 900);
my @method = qw(description PFAM SCOP REPEAT BLAST ANOTH);
my @types = qw(typ1 typ2 typ3 typ4 typ5 typ6);
sub init
{
my $self = shift;
$self->{'dsn'} = "demo";
$self->{'capabilities'} = { 'features' => '1.0', };
}
sub length
{
return 0;
}
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;
]]>