Parent Directory
|
Revision Log
|
Patch
revision 337 by dpavlin, Sat Nov 8 23:22:03 2008 UTC | revision 606 by dpavlin, Fri Nov 28 22:22:07 2008 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | package Frey::DelIcioUs; | package Frey::DelIcioUs; |
2 | use Moose; | use Moose; |
3 | ||
4 | extends 'Frey'; | |
5 | with 'Frey::Storage'; | with 'Frey::Storage'; |
6 | ||
7 | use LWP::UserAgent; | use LWP::UserAgent; |
# | Line 11 has 'username' => ( | Line 12 has 'username' => ( |
12 | is => 'rw', | is => 'rw', |
13 | isa => 'Str', | isa => 'Str', |
14 | required => 1, | required => 1, |
15 | documentation => 'login on del.icio.us', | |
16 | ); | ); |
17 | ||
18 | has 'password' => ( | has 'password' => ( |
# | Line 46 sub posts { | Line 48 sub posts { |
48 | return $posts; | return $posts; |
49 | } | } |
50 | ||
51 | sub data { | sub as_data { |
52 | my $self = shift; | my $self = shift; |
53 | # $self->posts; | $self->posts; |
$self->sponge; | ||
54 | } | } |
55 | ||
56 | sub sponge { | sub as_sponge { |
57 | my $self = shift; | my $self = shift; |
58 | ||
59 | my $posts = $self->posts->{post}; | my $posts = $self->posts->{post}; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |