[Bioperl-guts-l] bioperl-live/Bio/Tools/EUtilities/Query GlobalQuery.pm, NONE, 1.1

Christopher John Fields cjfields at dev.open-bio.org
Sat Jun 23 00:43:07 EDT 2007


Update of /home/repository/bioperl/bioperl-live/Bio/Tools/EUtilities/Query
In directory dev.open-bio.org:/tmp/cvs-serv7006/EUtilities/Query

Added Files:
	GlobalQuery.pm 
Log Message:
eutils parsers, part of EUtilities overhaul (still need some work and tests)

--- NEW FILE: GlobalQuery.pm ---
package Bio::Tools::EUtilities::Query::GlobalQuery;
use strict;
use warnings;

use base qw(Bio::Root::Root Bio::Tools::EUtilities::EUtilDataI);

sub new {
    my ($class, @args) = @_;
    my $self = $class->SUPER::new(@args);
    $self->eutil('egquery');
    $self->datatype('globalquery');
    return $self;
}

=head2 get_term

 Title   : get_term
 Usage   : $st = $qd->get_term;
 Function: retrieve the term for the global search
 Returns : string
 Args    : none

=cut

sub get_term {
    my ($self) = @_;
    return $self->{'_term'};
}

=head2 get_database

 Title   : get_database
 Usage   : $ct = $qd->get_database;
 Function: retrieve the database
 Returns : string
 Args    : none

=cut

sub get_database {
    my ($self) = @_;
    return $self->{'_dbname'};
}

=head2 get_count

 Title   : get_count
 Usage   : $ct = $qd->get_count;
 Function: retrieve the count for the database
 Returns : string
 Args    : none

=cut

sub get_count {
    my ($self) = @_;
    return $self->{'_count'};
}

=head2 get_status

 Title   : get_status
 Usage   : $st = $qd->get_status;
 Function: retrieve the query status for database in db()
 Returns : string
 Args    : none

=cut

sub get_status {
    my ($self) = @_;
    return $self->{'_status'};
}

=head2 get_menu_name

 Title   : get_menu_name
 Usage   : $ct = $qd->get_menu_name;
 Function: retrieve the full name for the database in db()
 Returns : string
 Args    : None

=cut

sub get_menu_name {
    my $self = shift;
    return $self->{'_menuname'};
}

# private method

sub _add_data {
    my ($self, $data) = @_;
    map {$self->{'_'.lc $_} = $data->{$_}} keys %$data;
}

1;





More information about the Bioperl-guts-l mailing list