us 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 ) = @_
= $ua->get( $API_BASE . $args->{url} );
if ( $response->is_success ) {
return decode_json $response->content;
}
else {
die $response->status_line;
}
}
1;
__END__
=p
portion, of the Delicious (V2) API.
Patches welcome to support more of the API.
Returns decoded json returned from the API.
Possibly very unstable; may have future backwards incompatible releases,