| Bio::Phylo::PhyloWS::Client - Base class for phylogenetic web service clients |
Bio::Phylo::PhyloWS::Client - Base class for phylogenetic web service clients
#!/usr/bin/perl use strict; use warnings; use Bio::Phylo::Factory; my $fac = Bio::Phylo::Factory->new; my $client = $fac->create_client( '-url' => 'http://8ball.sdsc.edu:6666/treebase-web/phylows/' ); my $desc = $client->get_query_result( '-query' => 'dcterms.identifier=S2484', '-section' => 'study', '-recordSchema' => 'tree', ); for my $res ( @{ $desc->get_entities } ) { my $proj = $client->get_record( '-guid' => $res->get_guid ); print $proj->to_nexus, "\n"; }
This is the base class for clients connecting to services that implement the PhyloWS (http://evoinfo.nescent.org/PhyloWS) recommendations.
new()
Type : Constructor Title : new Usage : my $phylows = Bio::Phylo::PhyloWS::Client->new( -url => $url ); Function: Instantiates Bio::Phylo::PhyloWS::Client object Returns : a Bio::Phylo::PhyloWS::Client object Args : Required: -url => $url Optional: any number of setters. For example, Bio::Phylo::PhyloWS->new( -name => $name ) will call set_name( $name ) internally
get_query_result()
Gets search query result
Type : Accessor Title : get_query_result Usage : my $res = $obj->get_query_result( -query => $query ); Function: Returns Bio::Phylo::PhyloWS::Description object Returns : A string Args : Required: -query => $cql_query Optional: -format, -section, -recordSchema
get_record()
Gets a PhyloWS database record
Type : Accessor Title : get_record Usage : my $rec = $obj->get_record( -guid => $guid ); Function: Gets a PhyloWS database record Returns : Bio::Phylo::Project object Args : Required: -guid => $guid Optional: -format (default: nexml)
Also see the manual: the Bio::Phylo::Manual manpage and http://rutgervos.blogspot.com
$Id: Phylo.pm 1045 2009-05-28 22:48:16Z rvos $
| Bio::Phylo::PhyloWS::Client - Base class for phylogenetic web service clients |