File Coverage

blib/lib/WebService/GData/Query.pm

Criterion	Covered	Total	%
statement	54	79	68.3
branch	8	18	44.4
condition	1	3	33.3
subroutine	18	28	64.2
pod	8	10	80.0
total	89	138	64.4

package WebService::GData::Query;
use WebService::GData;
use base 'WebService::GData';

use WebService::GData::Error;
use WebService::GData::Constants qw(:all);

#specify default parameters

our $VERSION = 0.0205;

*disable = *WebService::GData::disable;

sub __init {
    my $this = shift;

    $this->{_query} = {
        'v'         => GDATA_MINIMUM_VERSION,
        alt         => JSON,
        prettyprint => FALSE,
        strict      => TRUE,
    };
    return $this;
}


sub set_from_query_string {
	my ($this,$uri) = @_;
	my (undef,$query_string) = split(/\?/,$uri);

	my @elements = split(/&/,$query_string);

	foreach my $element (@elements){
		my ($param,$val)= split(/=/,$element);
	   $this->_set_query($param,$val);
	}
}


sub install_sub {
    my $subname = shift;
    my $field   = $subname;
    $field =~ s/_/-/g;
    return sub {
        my ( $this, $val ) = @_;

        if ( my $code = $this->can( '_' . $field . '_is_valid' ) ) {

            my $res = &$code($val);
            if ($res) {
                return $this->_set_query( $field, $val );
            }
            else {
                die new WebService::GData::Error( 'invalid_parameter_type',
                    $subname . '() did not get a proper value.' );
            }
        }
        return $this->_set_query( $field, $val );

      }
}

sub install {
    my $parameters = shift;
    my $package    = caller;
    WebService::GData::install_in_package( $parameters, \&install_sub,
        $package );
}

install(
    [
        'strict',        'fields', 'v',           'alt',
        'prettyprint',   'author', 'updated_min', 'updated_max',
        'published_min', 'published_max'
    ]
);

#move this else where...

sub _is_date_format {
    my $val = shift;
    return $val
      if ( $val =~
        m/[0-9]{4}-[0-9]{2}-[0-9]{3}T[0-9]{2}:[0-9]{2}:[0-9]{2}-[0-9]{2}:00/ );
}

sub _is_boolean {
    my $val = shift;
    return $val if ( $val eq FALSE || $val eq TRUE );
}

sub _v_is_valid {
    my $val = shift;
    return $val if ( $val >= GDATA_MINIMUM_VERSION );
}

sub _published_max_is_valid {
    return _is_date_format( shift() );
}

sub _published_min_is_valid {
    return _is_date_format( shift() );
}

sub _updated_max_is_valid {
    return _is_date_format( shift() );
}

sub _updated_min_is_valid {
    return _is_date_format( shift() );
}

sub _prettyprint_is_valid {
    return _is_boolean( shift() );
}

sub _strict_is_valid {
    return _is_boolean( shift() );
}

sub start_index {
    my ( $this, $start ) = @_;
    return $this->_set_query( 'start-index', ( int($start) < 1 ) ? 1 : $start );
}

sub max_results {
    my ( $this, $max ) = @_;
    return $this->_set_query( 'max-results', ( int($max) < 1 ) ? 1 : $max );
}

sub limit {
    my ( $this, $max, $offset ) = @_;
    $this->start_index($offset);
    return $this->max_results($max);
}

sub q {
    my ( $this, $search ) = @_;
    $search =~ s/\s+AND\s+/ /g;
    return $this->_set_query( 'q', $search );
}

sub category {
    my ( $this, $category ) = @_;
    $category =~ s/\s+OR\s+/|/g;
    $category =~ s/\s+AND\s+/,/g;
    $category =~ s/\s{1}/,/g;
    return $this->_set_query( 'category', $category );
}

sub _set_query {
    my ( $this, $key, $val ) = @_;
    $this->{_query}->{$key} = $val;
    return $this;
}

sub get {
    my ( $this, $key ) = @_;
    return $this->{_query}->{$key};
}

sub to_query_string {
    my $this  = shift;
    my @query = ();
    while ( my ( $field, $value ) = each %{ $this->{_query} } ) {
        push @query, $field . '=' . _urlencode($value) if ( defined $value );
        push @query, $field if ( !defined $value );
    }
    return '?' . join '&', @query;
}

sub _urlencode {
    my ($string) = shift;
    $string =~ s/(\W)/"%" . unpack("H2", $1)/ge;
    return $string;
}

sub __to_string {
    return shift()->to_query_string();
}

"The earth is blue like an orange.";

__END__