Yet Another CPAN Grep

WWW-Shorten-Bitly ( P/PJ/PJAIN/WWW-Shorten-Bitly-1.17.tar.gz, PJAIN, 2011; MetaCPAN )

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

::Bitly;

use warnings;
use strict;
use Carp;

use base qw( WWW::Shorten::generic Exporter );
use JSON::Any;

require XML::Simple;
require Exporter;

our %EXPORT_TAGS = ( 'all' => [ qw() ] );
our @EXP

ing each shortened
WWW::Shorten::Bitly uses XML::Simple to convert the xml response and JSON::Any to convert JSON responses for the meta info and click stats to create a hashref of the results.

WWW::

$bitly->{BASE} = BASE_JMP;
    } else {
        $bitly->{BASE} = BASE_BLY;
    }
    $bitly->{json} = JSON::Any->new;
    $bitly->{browser} = LWP::UserAgent->new(agent => $args{source});
    $bitly->{