File Coverage

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

Criterion	Covered	Total	%
statement	15	27	55.5
branch	0	6	0.0
condition			n/a
subroutine	5	7	71.4
pod	1	2	50.0
total	21	42	50.0

use strict;
use warnings;
package App::Nopaste::Service::PastebinCom;
# ABSTRACT: Service provider for Pastebin - http://pastebin.com/

our $VERSION = '1.013';

use parent 'App::Nopaste::Service';
use Module::Runtime 'use_module';
use namespace::clean 0.19;

sub available {
    eval { use_module('WWW::Pastebin::PastebinCom::Create'); 1 }
}

sub run {
    my $self = shift;
    my %args = @_;

    use_module('WWW::Pastebin::PastebinCom::Create');

    $args{poster} = delete $args{nick} if defined $args{nick};
    $args{format} = delete $args{lang} if defined $args{lang};

    my $paster = WWW::Pastebin::PastebinCom::Create->new;
    my $ok = $paster->paste(
        expiry => 'm',
        %args,
    );

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

1;

__END__