File Coverage

blib/lib/POE/Component/WWW/Google/Time.pm

Criterion	Covered	Total	%
statement	15	24	62.5
branch	0	4	0.0
condition	0	2	0.0
subroutine	5	9	55.5
pod	1	1	100.0
total	21	40	52.5

package POE::Component::WWW::Google::Time;

use warnings;
use strict;

our $VERSION = '0.0102';

use POE;
use WWW::Google::Time;
use base 'POE::Component::NonBlockingWrapper::Base';

sub _methods_define {
    return ( get_time => '_wheel_entry' );
}

sub get_time {
    $poe_kernel->post( shift->{session_id} => get_time => @_ );
}

sub _prepare_wheel {
    my $self = shift;
    $self->{obj} = WWW::Google::Time->new(
        $self->{ua} ? ( ua => $self->{ua} ) : ()
    );
}

sub _process_request {
    my ( $self, $in_ref ) = @_;
    my $t = $self->{obj};
    $t->get_time( $in_ref->{where} )
        or $in_ref->{error} = $t->error
        and return;

    $in_ref->{result} = $t->data;

    return;
}

1;
__END__