Yet Another CPAN Grep

WWW-PunchTab ( F/FA/FAYLAND/WWW-PunchTab-0.02.tar.gz, FAYLAND, 2012; MetaCPAN )

WWW-PunchTab/lib/WWW/PunchTab.pm ( view source; MetaCPAN )

 ABSTRACT: PunchTab REST API

use strict;
use warnings;
use LWP::UserAgent;
use MIME::Base64;
use JSON;
use Digest::SHA;
use Carp;
use vars qw/$errstr/;
sub errstr { $errstr }

sub new {
    my $class

f = shift;
    my %user = @_ % 2 ? %{ $_[0] } : @_;

    my $auth_request = encode_base64( encode_json( \%user ) );
    my $timestamp    = time();
    my $signature    = Digest::SHA::hmac_sha1_hex( "$

>is_success ) {
        $errstr = $resp->status_line;
        return;
    }
    my $data = decode_json( $resp->decoded_content );
    if ( $data->{error} ) {
        $errstr = $data->{error}->{descrip