File Coverage

blib/lib/App/Nopaste/Service/dpaste.pm

Criterion	Covered	Total	%
statement	12	26	46.1
branch	0	8	0.0
condition			n/a
subroutine	4	8	50.0
pod	3	4	75.0
total	19	46	41.3

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::Service';

sub uri { 'http://dpaste.com/' }

sub fill_form {
    my ($self, $mech, %args) = @_;

    my $syntax_map = $self->get_syntax_map($mech);

    my $syntax = $syntax_map->{$args{lang}}
      ? $syntax_map->{$args{lang}}
      : $syntax_map->{text};

    $mech->submit_form(
        form_name => 'pasteform',
        fields    => {
            content     => $args{text},
            syntax      => $syntax,
            expiry_days => 1,
            ( $args{nick}
                ? (poster => $args{nick})
                : ()
            ),
            ( $args{desc}
                ? (title => $args{desc})
                : ()
            ),
        },
    );
}

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

    my $res = $mech->get($SYNTAX_CHOICES_URL);

    die "Unable to fetch $SYNTAX_CHOICES_URL: @{[$res->status_line()]}"
        unless $res->is_success();

    $mech->back();

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

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

    my $link = $mech->uri();

    return (1, $link);
}

1 && q[Electric Wizard - Return Trip];

__END__