File Coverage

blib/lib/POE/Component/WWW/Pastebin/Bot/Pastebot/Create.pm

Criterion	Covered	Total	%
statement	19	37	51.3
branch	0	10	0.0
condition	0	2	0.0
subroutine	7	11	63.6
pod	1	1	100.0
total	27	61	44.2

package POE::Component::WWW::Pastebin::Bot::Pastebot::Create;

use warnings;
use strict;

our $VERSION = '0.003';

use Carp;
use POE;
use base 'POE::Component::NonBlockingWrapper::Base';
use WWW::Pastebin::Bot::Pastebot::Create;

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

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

sub _check_args {
    my ( $self, $args_ref ) = @_;

    exists $args_ref->{content}
        or carp "Missing `content` argument"
        and return;

    return 1;
}

sub _prepare_wheel {
    my $self = shift;
    $self->{obj} = WWW::Pastebin::Bot::Pastebot::Create->new(
        %{ $self->{obj_args} || {} }
    );
}

sub _process_request {
    my ( $self, $in_ref ) = @_;
    my @args = ( $in_ref->{content} );
    for ( qw(channel nick summary) ) {
        exists $in_ref->{$_}
            and push @args, $_ => $in_ref->{$_};
    }

    my $paster = $self->{obj};

    if ( exists $in_ref->{site} ) {
        $paster->site( $in_ref->{site} );
    }

    my $response_ref = $paster->paste( @args );
    if ( $response_ref ) {
        $in_ref->{uri} = $paster->uri;
    }
    else {
        $in_ref->{error} = $paster->error;
    }
}

1;

__END__