File Coverage

blib/lib/POE/Component/WWW/Pastebin/Many/Retrieve.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package POE::Component::WWW::Pastebin::Many::Retrieve;

use warnings;
use strict;

our $VERSION = '0.001';

use Carp;
use WWW::Pastebin::Many::Retrieve;
use POE;
use base 'POE::Component::NonBlockingWrapper::Base';

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

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

sub _prepare_wheel {
    my $self = shift;
    $self->{obj} = WWW::Pastebin::Many::Retrieve->new(
        timeout => $self->{timeout} || 30
    );
}

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

    return 1;
}

sub _process_request {
    my ( $self, $in_ref ) = @_;
    my $paster = $self->{obj};
    my $response = $paster->retrieve( $in_ref->{uri} );
    if ( $response ) {
        @$in_ref{ qw(response content) } = ( $response, $paster->content );
    }
    else {
        $in_ref->{error} = $paster->error;
    }
}

1;
__END__