Yet Another CPAN Grep

WebService-Bitly ( S/SH/SHIBAZAKI/WebService-Bitly-0.06.tar.gz, SHIBAZAKI, 2011; MetaCPAN )

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

NIVERSAL::require;

our $VERSION = '0.06';

use URI;
use URI::QueryParam;
use LWP::UserAgent;
use JSON;

use WebService::Bitly::Result::HTTPError;

use base qw(Class::Accessor::Fast);

__PACKAGE__->mk

name);
    $url->query_param(apiKey   => $self->user_api_key);
    $url->query_param(format   => 'json');

    my $response = $self->ua->get($url);

    if (!$response->is_success) {
        return We

ice::Bitly::Result::' . $result_class;
    $result_class->require;

    my $bitly_response = from_json($response->content);
    return $result_class->new($bitly_response);
}

sub _api_url {
    my ($s