File Coverage

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

Criterion	Covered	Total	%
statement	12	29	41.3
branch	0	10	0.0
condition			n/a
subroutine	4	9	44.4
pod	4	4	100.0
total	20	52	38.4

use strict;
use warnings;
package App::Nopaste::Service::WerePaste;
{
  $App::Nopaste::Service::WerePaste::VERSION = '0.02';
}
use Encode qw/decode_utf8/;

use base q/App::Nopaste::Service/;

# ABSTRACT: nopaste service for L

sub uri { $ENV{WEREPASTE_URL} || 'http://paste.were.space/' }

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

    # Set BasicAuth credentials if needed
    $mech->credentials( $self->_credentials ) if $self->_credentials;

    return $mech->get($self->uri);
}

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

    my $content = {
        code    => decode_utf8($args{text}),
        title   => decode_utf8($args{desc}),
        lang    => decode_utf8($args{lang}),
    };
    my $exp = $ENV{WEREPASTE_EXP};
    $content->{expiration} = $exp if $exp;
    $mech->credentials( $self->_credentials ) if $self->_credentials;
    @{$mech->requests_redirectable} = ();

    return $mech->submit_form( form_number => 1, fields => $content );
}

sub return {
    my ( $self, $mech ) = @_;
		return (1, $mech->response->header('Location')) if $mech->response->is_redirect;
		return (0, 'Cannot find URL');
}

sub _credentials { ($ENV{WEREPASTE_USER}, $ENV{WEREPASTE_PASS}) }

1;
__END__