Yet Another CPAN Grep

App-Nopaste-Service-dpaste ( S/SR/SROMANOV/App-Nopaste-Service-dpaste-0.03.tar.gz, SROMANOV, 2014; MetaCPAN )

App-Nopaste-Service-dpaste/lib/App/Nopaste/Service/dpaste.pm ( view source; MetaCPAN )

package App::Nopaste::Service::dpaste;

use strict;
use warnings;

use JSON ();

our $VERSION = '0.03';

our $SYNTAX_CHOICES_URL = 'http://dpaste.com/api/v2/syntax-choices/';

use base 'App::Nopaste::

URL: @{[$res->status_line()]}"
        unless $res->is_success();

    $mech->back();

    return JSON->new->decode($res->content());
}

sub return {
    my ($self, $mech) = @_;

    my $link = $mech-