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


line stmt bran cond sub pod time code
1             package Mojolicious::Command::nopaste::Service::fpaste;
2 1     1   719 use Mojo::Base 'Mojolicious::Command::nopaste::Service';
  1         3  
  1         4  
3              
4             has description => "Post to fpaste.org\n";
5              
6             sub paste {
7 0     0 0   my $self = shift;
8 0   0       my $lang = $self->language || 'text';
9              
10 0 0         my $tx = $self->ua->post(
    0          
11             'http://fpaste.org',
12             form => {
13             api_submit => 1,
14             mode => 'json',
15             paste_data => $self->text,
16             paste_lang => $lang,
17             ($self->private ? (paste_private => 1) : ()),
18             ($self->name ? (paste_user => $self->name) : ()),
19             }
20             );
21              
22 0 0         unless ($tx->res->is_success) {
23 0           say $tx->res->message;
24 0           say $tx->res->body;
25 0           exit 1;
26             }
27              
28 0           my $url = Mojo::URL->new('http://fpaste.org/');
29              
30 0           push @{$url->path->parts}, @{$tx->res->json->{result}}{qw(id hash)};
  0            
  0            
31              
32 0           return $url;
33             }
34              
35             1;