Yet Another CPAN Grep

WWW-LongURL ( K/KS/KSPENCER/WWW-LongURL-0.05.tar.gz, KSPENCER, 2011; MetaCPAN )

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

package WWW::LongURL;

use JSON::Any;
use LWP::UserAgent;
use URI::Escape;
use strict;
use warnings;
use base qw(Class::Accessor::Fast);

__PACKAGE__->mk_accessors(qw(apibase useragent format error));

{};
    bless $self, $class;
    $self->apibase('http://api.longurl.org/v2/');
    $self->format('json');
    $self->useragent('WWW-LongURL/0.05');
    return $self;
}

sub expand {
    my ($self, $ur

t());

    my $response = $ua->get($what);
    if ($response->is_success()) {
        return JSON::Any->jsonToObj($response->decoded_content());
    } else {
        $self->error($response->status_lin