File Coverage

blib/lib/WWW/Google/Time.pm

Criterion	Covered	Total	%
statement	30	37	81.0
branch	2	6	33.3
condition	1	3	33.3
subroutine	7	8	87.5
pod	2	2	100.0
total	42	56	75.0

package WWW::Google::Time;

use warnings;
use strict;

our $VERSION = '1.001004'; # VERSION

use LWP::UserAgent;
use URI;
use base 'Class::Accessor::Grouped';

__PACKAGE__->mk_group_accessors( simple => qw/
    error
    data
    where
    ua
/);

sub new {
    my ( $class, %args ) = @_;

    my $self = bless {}, $class;
    $self->ua( $args{ua} || LWP::UserAgent->new( agent => "Mozilla", timeout => 30, ) );

    return $self;
}

sub get_time {
    my ( $self, $where ) = @_;
    my $uri = URI->new("http://google.com/search");

    $self->$_(undef)
        for qw/error data/;

    $self->where( $where );

    $uri->query_form(
        num     => 100,
        hl      => 'en',
        safe    => 'off',
        btnG    => 'Search',
        meta    => '',
        'q'     => "time in $where",
    );
    my $response = $self->ua->get($uri);
    unless ( $response->is_success ) {
        return $self->_set_error( $response, 'net' );
    }

# open my $fh, '>', 'out.txt' or die;
# print $fh $response->decoded_content.'\n';
# close $fh;

    my %data;
    # print $response->content;
    @data{ qw/time day_of_week month month_day year time_zone where/ } = $response->content
    =~ m{(.+?) (\w+), (\w+) (\d+), (\d+) \((.+?)\) \s+Time in (.+?) }
         # 12:23 PM Wednesday, December 31, 2014 (EST)   Time in Toronto, ON
    or do {
        return $self->_set_error("Could not find time data for that location");
    };


#


    $data{where} =~ s{|}{}g;

    return $self->data( \%data );
}

sub _set_error {
    my ( $self, $error_or_response, $is_response ) = @_;

    if ( $is_response ) {
        $self->error( "Network error: " . $error_or_response->status_line );
    }
    else {
        $self->error( $error_or_response );
    }
    return;
}

1;
__END__