Bio::Das::ProServer::SourceAdaptor::proxy - Bio::Das::ProServer::SourceAdaptor::proxy documentation

Bio-Das-ProServer documentation

Contained in the Bio-Das-ProServer distribution.

Index

NAME
VERSION
SYNOPSIS
DESCRIPTION
SUBROUTINES/METHODS
DIAGNOSTICS
CONFIGURATION AND ENVIRONMENT
DEPENDENCIES
INCOMPATIBILITIES
BUGS AND LIMITATIONS
AUTHOR
LICENSE AND COPYRIGHT

Code Index:

package Bio::Das::ProServer::SourceAdaptor::proxy
__END__
EOF

NAME

Bio::Das::ProServer::SourceAdaptor::proxy

VERSION

$LastChangedRevision: 524 $

SYNOPSIS

Passes through all requests to another das server. Intended to be inherited from by proxies which do more interesting things

DESCRIPTION

SUBROUTINES/METHODS

capabilities

das_stylesheet

build_features

DIAGNOSTICS

CONFIGURATION AND ENVIRONMENT

DEPENDENCIES

HTTP::Request LWP::UserAgent Bio::Das::Lite Bio::Das::ProServer::SourceAdaptor

INCOMPATIBILITIES

BUGS AND LIMITATIONS

AUTHOR

$Author: Roger M Pettett$

LICENSE AND COPYRIGHT

This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with this program. If not, see <http://www.gnu.org/licenses/>.

Bio-Das-ProServer documentation

Contained in the Bio-Das-ProServer distribution.

#########
# Author:        dj3
# Maintainer:    $Author: andyjenkinson $
# Created:       2005-10-21
# Last Modified: $Date: 2008-09-21 19:23:26 +0100 (Sun, 21 Sep 2008) $
# Id:            $Id: proxy.pm 524 2008-09-21 18:23:26Z andyjenkinson $
# Source:        $Source: /nfs/team117/rmp/tmp/Bio-Das-ProServer/Bio-Das-ProServer/lib/Bio/Das/ProServer/SourceAdaptor/proxy.pm,v $
#
package Bio::Das::ProServer::SourceAdaptor::proxy;
use strict;
use warnings;
use HTTP::Request;
use LWP::UserAgent;
use Bio::Das::Lite;
use base qw(Bio::Das::ProServer::SourceAdaptor);

our $VERSION = do { my ($v) = (q$Revision: 524 $ =~ /\d+/mxg); $v; };

sub capabilities {
  return {
	  features   => '1.0',
	  stylesheet => '1.0',
	 };
}

sub das_stylesheet {
  my $self = shift;
  return LWP::UserAgent->new->request(HTTP::Request->new('GET', $self->config->{sourcedsn}.'/stylesheet'))->content;
}

sub build_features {
  my ($self, $opts) = @_;
  my $seg   = $opts->{segment};
  my $start = $opts->{start};
  my $end   = $opts->{end};
  my $das   = Bio::Das::Lite->new($self->config->{sourcedsn});
  my @results;
  $das->features((exists $opts->{start})?"$seg:$start,$end":$seg,
                 sub {
                   my $fr = shift;
                   if($fr->{feature_id}) {
		     push @results, $fr;
		   }
                 });
  return @results;
}

1;
__END__