view release on metacpan or  search on metacpan

lib/WebService/Pastefire.pm  view on Meta::CPAN

        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 {