lib/Frey/DelIcioUs.pm

package Frey::DelIcioUs;
use Moose;

extends 'Frey';
with 'Frey::Storage';

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

has 'username' => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        documentation => 'login on del.icio.us',
);

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

sub path {
        my $self = shift;
        'var/delicious/' . $self->username . '.yml';
}

sub posts {
        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, $posts );
        return $posts;
}

sub as_data {
        my $self = shift;
        $self->posts;
}

sub as_sponge {
        my $self = shift;

        my $posts = $self->posts->{post};
        die "not ARRAY ",dump( $posts ) unless ref($posts) eq 'ARRAY';

        my @NAME = keys %{ $posts->[0] };
        my @rows;

        foreach my $post ( @$posts ) {
                my @row;
                push @row, $post->{ $_ } foreach @NAME;
                push @rows, \@row;
        }


        return {
                rows => \@rows,
                NAME => \@NAME,
        }
}

1;
1	dpavlin	315	package Frey::DelIcioUs;
2	dpavlin	226	use Moose;
3
4	dpavlin	606	extends 'Frey';
5	dpavlin	226	with 'Frey::Storage';
6
7	dpavlin	323	use LWP::UserAgent;
8			use XML::Simple;
9			use Data::Dump qw/dump/;
10
11	dpavlin	226	has 'username' => (
12			is => 'rw',
13			isa => 'Str',
14			required => 1,
15	dpavlin	425	documentation => 'login on del.icio.us',
16	dpavlin	226	);
17
18			has 'password' => (
19	dpavlin	323	is => 'ro',
20	dpavlin	226	isa => 'Str',
21			required => 1,
22			);
23
24	dpavlin	333	sub path {
25			my $self = shift;
26	dpavlin	337	'var/delicious/' . $self->username . '.yml';
27	dpavlin	333	}
28	dpavlin	226
29	dpavlin	337	sub posts {
30	dpavlin	226	my $self = shift;
31
32			if ( my $posts = $self->load( $self->path ) ) {
33			return $posts;
34			}
35
36			my $ua = LWP::UserAgent->new;
37			my $req = HTTP::Request->new(GET => 'https://api.del.icio.us/v1/posts/all');
38			$req->authorization_basic( $self->username, $self->password );
39			my $content = $ua->request($req)->as_string;
40			warn "# got ",length($content), " bytes";
41
42			# strip headers
43			$content =~ s/^.+(<\?xml)/$1/s;
44			warn substr($content,0,100), ' ... ', substr($content,-100);
45			my $posts = XMLin( $content );
46			warn dump( $posts );
47	dpavlin	337	$self->store( $self->path, $posts );
48	dpavlin	226	return $posts;
49			}
50
51	dpavlin	455	sub as_data {
52	dpavlin	337	my $self = shift;
53	dpavlin	352	$self->posts;
54	dpavlin	337	}
55
56	dpavlin	455	sub as_sponge {
57	dpavlin	337	my $self = shift;
58
59			my $posts = $self->posts->{post};
60			die "not ARRAY ",dump( $posts ) unless ref($posts) eq 'ARRAY';
61
62			my @NAME = keys %{ $posts->[0] };
63			my @rows;
64
65			foreach my $post ( @$posts ) {
66			my @row;
67			push @row, $post->{ $_ } foreach @NAME;
68			push @rows, \@row;
69			}
70
71
72			return {
73			rows => \@rows,
74			NAME => \@NAME,
75			}
76			}
77
78	dpavlin	226	1;