File Coverage

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

Criterion	Covered	Total	%
statement	12	31	38.7
branch	0	8	0.0
condition			n/a
subroutine	4	9	44.4
pod			n/a
total	16	48	33.3

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

use warnings;
use strict;

our $VERSION = '0.0102';

use base 'POE::Component::IRC::Plugin::BasePoCoWrap';
use POE qw/Component::WWW::Google::Time/;

sub _make_default_args {
    return (
        response_event   => 'irc_google_time',
        trigger          => qr/^time\s+(?=\S)/i,
    );
}

sub _make_poco {
    my $self = shift;
    return POE::Component::WWW::Google::Time->spawn(
        $self->{ua} ? ( ua => $self->{ua} ) : ()
    );
}

sub _make_response_message {
    my $self   = shift;
    my $in_ref = shift;

    my $prefix = '';
    if ( $in_ref->{_type} eq 'public' ) {
          ( $prefix ) = (split /!/, $in_ref->{_who}, 2)[0] . ', ';
    }

    if ( exists $in_ref->{error} ) {
        return [ $prefix . lc $in_ref->{error} ];
    }
    else {
        return [
            sprintf "%sit is %s, %s (%s) in %s\n",
                $prefix, @{ $in_ref->{result} }{ qw/day_of_week  time  time_zone  where/ }
        ];
    }
}

sub _make_response_event {
    my $self = shift;
    my $in_ref = shift;

    return {
        ( exists $in_ref->{error}
            ? ( error => $in_ref->{error} )
            : ( result => $in_ref->{result} )
        ),

        map { $_ => $in_ref->{"_$_"} }
            qw( who channel  message  type  what ),
    }
}

sub _make_poco_call {
    my $self = shift;
    my $data_ref = shift;

    $self->{poco}->get_time( {
            event       => '_poco_done',
            where       => $data_ref->{what},
            map +( "_$_" => $data_ref->{$_} ),
                keys %$data_ref,
        }
    );
}

1;
__END__