lib/Frey/DelIcioUs.pm

package Frey::DelIcioUs;
use Moose;

with 'Frey::Storage';

use LWP::UserAgent;
use XML::Simple;
use Data::Dump qw/dump/;

has 'username' => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has 'password' => (
        is => 'ro',
        isa => 'Str',
        required => 1,
);

has 'path' => (
        is => 'ro',
        isa => 'Str',
        default => sub {
                my $self = shift;
                'var/delicious/' . $self->username;
        }
);

sub data {
        my $self = shift;

        if ( my $posts = $self->load( $self->path ) ) {
                return $posts;
        }

        my $ua = LWP::UserAgent->new;
        my $req = HTTP::Request->new(GET => 'https://api.del.icio.us/v1/posts/all');
        $req->authorization_basic( $self->username, $self->password );
        my $content = $ua->request($req)->as_string;
        warn "# got ",length($content), " bytes";

        # strip headers
        $content =~ s/^.+(<\?xml)/$1/s;
        warn substr($content,0,100), ' ... ', substr($content,-100);
        my $posts = XMLin( $content );
        warn dump( $posts );
        $self->store( $self->path . '.yml', $posts );
        return $posts;
}

1;
1	dpavlin	315	package Frey::DelIcioUs;
2	dpavlin	226	use Moose;
3
4			with 'Frey::Storage';
5
6	dpavlin	323	use LWP::UserAgent;
7			use XML::Simple;
8			use Data::Dump qw/dump/;
9
10	dpavlin	226	has 'username' => (
11			is => 'rw',
12			isa => 'Str',
13			required => 1,
14			);
15
16			has 'password' => (
17	dpavlin	323	is => 'ro',
18	dpavlin	226	isa => 'Str',
19			required => 1,
20			);
21
22			has 'path' => (
23			is => 'ro',
24			isa => 'Str',
25			default => sub {
26			my $self = shift;
27			'var/delicious/' . $self->username;
28			}
29			);
30
31			sub data {
32			my $self = shift;
33
34			if ( my $posts = $self->load( $self->path ) ) {
35			return $posts;
36			}
37
38			my $ua = LWP::UserAgent->new;
39			my $req = HTTP::Request->new(GET => 'https://api.del.icio.us/v1/posts/all');
40			$req->authorization_basic( $self->username, $self->password );
41			my $content = $ua->request($req)->as_string;
42			warn "# got ",length($content), " bytes";
43
44			# strip headers
45			$content =~ s/^.+(<\?xml)/$1/s;
46			warn substr($content,0,100), ' ... ', substr($content,-100);
47			my $posts = XMLin( $content );
48			warn dump( $posts );
49	dpavlin	323	$self->store( $self->path . '.yml', $posts );
50	dpavlin	226	return $posts;
51			}
52
53			1;