File Coverage

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

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

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

use warnings;
use strict;

our $VERSION = '0.002';

use Carp;
use WWW::OhNoRobotCom::Search;
use POE;
use base 'POE::Component::NonBlockingWrapper::Base';

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

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

sub _prepare_wheel {
    my ( $self, $args ) = @_;
    $self->{_robo} = WWW::OhNoRobotCom::Search->new(
        %{ $self->{obj_args} || {} }
    );
}

sub _check_args {
    my ( $self, $args_ref ) = @_;
    defined $args_ref->{term}
        or carp 'Missing `term` argument'
        and return;
}

sub _process_request {
    my ( $self, $in_ref ) = @_;
    my @search_args;
    for ( qw(comic_id  include  max_results  lucky) ) {
        exists $in_ref->{$_}
            and push @search_args, $_, $in_ref->{$_};
    }

    my $out_ref = $self->{_robo}->search( $in_ref->{term}, @search_args );

    if ( defined $out_ref ) {
        $in_ref->{results} = $out_ref;
    }
    else {
        $in_ref->{error} = $self->{_robo}->error;
    }
}

1;
__END__