File Coverage

blib/lib/WWW/Delicious/Simple.pm

Criterion	Covered	Total	%
statement	9	17	52.9
branch	0	2	0.0
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	13	24	54.1

# ABSTRACT: Simple interface to the Delicious API
package WWW::Delicious::Simple;


use strict;
use warnings;

use JSON;

my $API_BASE = 'http://feeds.delicious.com/v2/json/urlinfo/data?url=';


sub get_url_info {
    my ( $class, $args ) = @_;

    my $ua = LWP::UserAgent->new;
    $ua->timeout(10);
    $ua->env_proxy;

    my $response = $ua->get( $API_BASE . $args->{url} );

    if ( $response->is_success ) {
        return decode_json $response->content;
    }
    else {
        die $response->status_line;
    }
}


1;

__END__