File Coverage

blib/lib/POE/Component/IRC/Plugin/WWW/OhNoRobotCom/Search.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package POE::Component::IRC::Plugin::WWW::OhNoRobotCom::Search;

use warnings;
use strict;

our $VERSION = '0.002';

use POE::Component::WWW::OhNoRobotCom::Search;
use base 'POE::Component::IRC::Plugin::BasePoCoWrap';

sub _make_default_args {
    return (
        response_event  => 'irc_ohnorobot_results',
        trigger         => qr/^comics?\s+(?=\S+)/i,
        obj_args        => { },
        max_results     => 3,
    );
}

sub _make_poco {
    my $self = shift;
    return POE::Component::WWW::OhNoRobotCom::Search->spawn(
        %{ $self->{obj_args} || {} }
    );
}

sub _make_response_message {
    my ( $self, $in_ref ) = @_;
    my @out = exists $in_ref->{error}
        ? $in_ref->{error}
        : sort keys %{ $in_ref->{results} };

    @out = splice @out, 0, $self->{max_results};

    return [ join ' ', @out ];
}

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

    return {
        ( exists $in_ref->{error}
            ? ( error => $in_ref->{error} )
            : ( results => $in_ref->{results} )
        ),
        term    => $in_ref->{term},
        map { $_ => $in_ref->{"_$_"} }
            qw( who channel  message  type ),
    }
}

sub _make_poco_call {
    my ( $self, $data_ref ) = @_;

    $self->{poco}->search({
            event       => '_poco_done',
            term        => delete $data_ref->{what},
            map( +( exists $self->{$_} ? ( $_ => $self->{$_} ) : () ),
                    qw(max_results comic_id include lucky)
            ),
            map +( "_$_" => $data_ref->{$_} ),
                keys %$data_ref,
        }
    );
}

1;
__END__