File Coverage

blib/lib/Bio/Tools/EUtilities/HistoryI.pm

Criterion	Covered	Total	%
statement	22	25	88.0
branch	4	10	40.0
condition	3	12	25.0
subroutine	7	7	100.0
pod	3	3	100.0
total	39	57	68.4

package Bio::Tools::EUtilities::HistoryI;
$Bio::Tools::EUtilities::HistoryI::VERSION = '1.77';
use utf8;
use strict;
use warnings;
use base qw(Bio::Tools::EUtilities::EUtilDataI);

# ABSTRACT: Simple extension of EUtilDataI interface class for classes which hold NCBI server history data.
# AUTHOR:   Chris Fields
# OWNER:    2006-2013 Chris Fields
# LICENSE:  Perl_5



sub history {
    my $self = shift;
    $self->parse_data if ($self->can('parse_data') && !$self->data_parsed);
    if (@_) {
        my ($webenv, $querykey) = (shift, shift);
        $self->throw("Missing part of cookie!") if (!$webenv || !$querykey);
        ($self->{'_webenv'}, $self->{'_querykey'}) = ($webenv, $querykey);
    }
    return ($self->get_webenv, $self->get_query_key);
}


sub get_webenv {
    my $self = shift;
    $self->parse_data if ($self->can('parse_data') && !$self->data_parsed);
    return $self->{'_webenv'};
}


sub get_query_key {
    my $self = shift;
    $self->parse_data if ($self->can('parse_data') && !$self->data_parsed);
    return $self->{'_querykey'};
}

1;

__END__