File Coverage

blib/lib/Mojolicious/Command/nopaste/Service/sprunge.pm

Criterion	Covered	Total	%
statement	3	13	23.0
branch	0	4	0.0
condition			n/a
subroutine	1	2	50.0
pod	0	1	0.0
total	4	20	20.0

package Mojolicious::Command::nopaste::Service::sprunge;
use Mojo::Base 'Mojolicious::Command::nopaste::Service';

has description => "Post to sprunge.us\n";

sub paste {
  my $self = shift;

  my $tx = $self->ua->post(
    'http://sprunge.us',
    form => { sprunge => $self->text },
  );

  unless ($tx->res->is_success) {
    say $tx->res->message;
    say $tx->res->body;
    exit 1;
  }

  chomp( my $url = $tx->res->body );

  if (my $lang = $self->language) {
    $url .= "?$lang";
  }
  return $url;
}

1;