File Coverage

blib/lib/WebService/Pastefire.pm

Criterion	Covered	Total	%
statement	28	36	77.7
branch	3	8	37.5
condition	2	3	66.6
subroutine	9	10	90.0
pod	2	2	100.0
total	44	59	74.5

package WebService::Pastefire;
use 5.008001;
use utf8;
use strict;
use warnings;
use parent 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw!
    username password expire url max
!);

use Carp;
use LWP::Simple;
use URI;
our $VERSION = '0.02';

sub new { my $class = shift; #{{{
    my $args = ref $_[0] ? $_[0] : +{@_};
    croak 'please specify email & password'
        unless defined $args->{username} && defined $args->{password};

    return $class->SUPER::new(+{
        url => 'https://pastefire.com/set_bookmarklet.php',
        expire => 3600,
        max => 300,
        %$args,
    });
} #}}}

sub paste { my ($self, $str) = @_; #{{{
    substr($str, -3) = '...' if $self->max < length $str;

    my $uri = URI->new($self->url);
    $uri->query_form(
        clipboard => $str,
        email => $self->username,
        pwd => $self->password,
        kexp => $self->expire,
        optin => 0,
    );
    my $res = get($uri->as_string);

    if ($res eq $str) {
        return 1;
    } else {
        return 0;
    }
} #}}}

1;
__END__