File Coverage

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

Criterion	Covered	Total	%
statement	9	21	42.8
branch	0	2	0.0
condition			n/a
subroutine	3	6	50.0
pod	3	3	100.0
total	15	32	46.8

use strict;
use warnings;
package App::Nopaste::Service::Codepeek;
# ABSTRACT: (DEPRECATED) Service for Codepeek - http://codepeek.com

our $VERSION = '1.012';

use parent 'App::Nopaste::Service';

warnings::warnif('deprecated', 'codepeek.com is offline, so this service no longer works');

sub uri { 'http://codepeek.com/paste' }

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

    $mech->form_number(1);

    $mech->submit_form(
        fields => {
            'paste'    => $args{text},
            'language' => ucfirst $args{lang},
            'privacy'  => $args{private},
        },
    );
}

sub return {
    my $self = shift;
    my $mech = shift;

    my $link = $mech->find_link( text_regex => qr#^http://codepeek.com/paste/[a-z0-9]+$#i );
    my $url = $link->url;
    return (0, "Could not construct paste link.") if !$url;
    return (1, $url);
}

1;

__END__