File Coverage

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

Criterion	Covered	Total	%
statement	3	15	20.0
branch	0	6	0.0
condition	0	2	0.0
subroutine	1	2	50.0
pod	0	1	0.0
total	4	26	15.3

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

has description => "Post to fpaste.org\n";

sub paste {
  my $self = shift;
  my $lang = $self->language || 'text';

  my $tx = $self->ua->post(
    'http://fpaste.org',
    form => {
      api_submit => 1,
      mode       => 'json',
      paste_data => $self->text,
      paste_lang => $lang,
      ($self->private ? (paste_private => 1)           : ()),
      ($self->name    ? (paste_user    => $self->name) : ()),
    }
  );

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

  my $url = Mojo::URL->new('http://fpaste.org/');

  push @{$url->path->parts}, @{$tx->res->json->{result}}{qw(id hash)};

  return $url;
}

1;