File Coverage

blib/lib/App/Nopaste/Service/PastebinCa.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch	0	4	0.0
condition			n/a
subroutine	4	6	66.6
pod	1	2	50.0
total	17	33	51.5

package App::Nopaste::Service::PastebinCa;

use 5.006;
use strict;
use warnings FATAL => 'all';
use base 'App::Nopaste::Service';

our $VERSION = '1.004';

sub available {
    eval 'require WWW::Pastebin::PastebinCa::Create; 1';
}
sub run {
    my $self = shift;
    my %args = @_;

    require WWW::Pastebin::PastebinCa::Create;

    $args{name} = delete $args{nick} if defined $args{nick};

    my $paster = WWW::Pastebin::PastebinCa::Create->new;
    my $ok = $paster->paste(
        delete($args{text}),
        expire  => '1 month',
        %args,
    );

    return (0, $paster->error) unless $ok;
    return (1, $paster->paste_uri);
}

q|
A guy is standing on the corner of the street smoking one cigarette after another. A lady walking by notices him and says
"Hey, don't you know that those things can kill you? I mean, didn't you see the giant warning on the box?!"
"That's OK" says the guy, puffing casually "I'm a computer programmer"
"So? What's that got to do with anything?"
"We don't really care about warnings. We only care about errors."
|;

__END__