--- trunk/lib/Frey/DelIcioUs.pm 2008/11/16 13:11:27 352 +++ trunk/lib/Frey/DelIcioUs.pm 2008/11/28 22:22:07 606 @@ -1,6 +1,7 @@ package Frey::DelIcioUs; use Moose; +extends 'Frey'; with 'Frey::Storage'; use LWP::UserAgent; @@ -11,6 +12,7 @@ is => 'rw', isa => 'Str', required => 1, + documentation => 'login on del.icio.us', ); has 'password' => ( @@ -46,12 +48,12 @@ return $posts; } -sub data { +sub as_data { my $self = shift; $self->posts; } -sub sponge { +sub as_sponge { my $self = shift; my $posts = $self->posts->{post};