Yet Another CPAN Grep

WebService-Livedoor-Auth ( I/IK/IKEBE/WebService-Livedoor-Auth-0.01.tar.gz, IKEBE, 2007; MetaCPAN )

WebService-Livedoor-Auth/lib/WebService/Livedoor/Auth.pm ( view source; MetaCPAN )

 use Carp;
    our $HAVE_JSON_SYCK;
    eval { require JSON::Syck; $HAVE_JSON_SYCK = 1 };
    eval { require JSON } unless $HAVE_JSON_SYCK;
    Carp::croak("JSON::Syck or JSON required to use " . __PA

CKAGE__) if $@;
    *_parse_json =
        $HAVE_JSON_SYCK  ? sub { JSON::Syck::Load($_[1]) }
                         : sub { JSON::jsonToObj($_[1])  };
}

sub new {
    my $class = shift;
    my %p


    my %query = (
        app_key => $self->app_key,
        v => $self->ver,
        format => 'json',
        token => $user->token,
        t => time,
    );
    $query{sig} = $self->calc_sig(\%qu