File Coverage

blib/lib/POE/Component/Pastebin/Create.pm

Criterion	Covered	Total	%
statement	15	31	48.3
branch	0	6	0.0
condition	0	4	0.0
subroutine	5	9	55.5
pod	1	1	100.0
total	21	51	41.1

package POE::Component::Pastebin::Create;
# ABSTRACT: Non-blocking wrapper to the WWW::Pastebin::*::Create modules

use strict;
use warnings;
use Carp;
use POE;
use base 'POE::Component::NonBlockingWrapper::Base';

sub _prepare_wheel {
	my $self = shift;

	my $type = $self->{pastebin_class} // 'Sprunge';
	my $pkg_name = ($type =~ /^\+/) ? substr($type, 1) : "WWW::Pastebin::${type}::Create";
	eval "use $pkg_name";
	croak "Cannot load the module $pkg_name\n" if $@;

	my $options = $self->{pastebin_args} // {};
	$self->{writer} = $pkg_name->new(%{$options});

	return $self;
}

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

sub _process_request {
	my ($self, $request) = @_;

	if ($self->{writer}->paste($request->{text}, %{$request})) {
		$request->{uri} = $self->{writer}->paste_uri;
	} else {
		$request->{error} = $self->{writer}->error;
	}
}

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

1;


__END__