File Coverage

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

Criterion	Covered	Total	%
statement	3	12	25.0
branch	0	8	0.0
condition			n/a
subroutine	1	2	50.0
pod	0	1	0.0
total	4	23	17.3

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

has description => "Post to mathb.in\n";

sub paste {
  my $self = shift;

  my $name  = $self->name;
  my $title = $self->desc;

  my $tx = $self->ua->post( 'http://mathb.in' => form => {
    code    => $self->text,
    ( $name  ? ( name  => $name  ) : () ),
    secrecy => $self->private ? 'yes' : '',
    ( $title ? ( title => $title ) : () ),
  });

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

  return $tx->req->url;
}

1;