@@ -24,4 +24,9 @@ WebService::Hatena::Diary documentation is available as in POD. So you can do: to read the documentation online with your favorite pager. +DEVELOPMENT + +If you want to see latest version of this module, please see +https://github.com/hakobe/webservice-hatena-diary/tree + Yohei Fushii README @@ -209,25 +209,251 @@ WebService::Hatena::Diary - A Perl Interface for Hatena::Diary AtomPub API WebService::Hatena::Diary is a simple wrapper of Hatena::Diary AtomPub API. This provides CRUD interfaces for Hatena::Diary and it's draft entries. +=head1 METHOD + +=head2 new ( I<\%args> ) + +=over 4 + + my $diary = WebService::Hatena::Diary->new({ + username => $username, + dusername => $dusername, + password => $password, + mode => $mode, + }); + +Create a WebService::Hatena::Diary object. + +=over 4 + +=item * + +B<username> + +Your Hatena id. + +=item * + +B<dusername> (Optional) + +Diary name that you want to manipulate. +Default is username. + +=item * + +B<password> + +Password for your Hatena id. + +=item * + +B<mode> (Optional) + +API mode ( C<blog> | C<draft> ). +Default is C<blog>. + +=back + +=back + + +=head2 ua + +=over 4 + + $diary->ua; + + Returns a UserAgent of this API. + +=back + + +=head2 errstr + +=over 4 + + $diary->errstr; + +Returns a error messages of the last error. + +=back + +=head2 list + +=over 4 + + my @entries = $diary->list; + +Returns a LIST of entries of the specified (blog|draft). +Each entry has values blow as a HASH object: + +=over 4 + +=item * + +B<edit_uri> + +Edit URI is a URI to identify a entry. + +=item * + +B<title> + +Title of a entry. + +=item * + +B<content> + +Content of a entry as a html format. + +=item * + +B<date> + +YYYY-MM-DD style date of a entry. + +=back + +=back + + +=head2 create ( I<\%args> ) + +=over 4 + + my $edit_uri = $diary->create({ + title => $title, + content => $content, + date => $date, + }); + +Create a new entry of the specified (blog|draft). +Returns Edit URI of a created entry if succeed. + +You have to pass C<date> on a YYYY-MM-DD format. + +=back + + +=head2 retrieve ( I<$edit_uri> ) + +=over 4 + + my $entry = $diary->retrieve($edit_uri); + +Returns a entry specified by an Edit URI as a HASH object like below: + +=over 4 + +=item * + +B<title> + +Title of a entry. + +=item * + +B<content> + +Content of a entry as a html format. + +=item * + +B<hatena_syntax> + +Content of a entry as a hatena syntax format. + +=item * + +B<date> + +YYYY-MM-DD style date of a entry. + +=back + +=back + + +=head2 update ( I<$edit_uri>, I<\%args> ) + +=over 4 + + $diary->update($edit_uri, { + title => $title, + content => $content, + }); + +Update a entry specified by an Edit URI. +Returns 1 if succeed. + +=back + + +=head2 delete ( I<$edit_uri> ) + +=over 4 + + $diary->delete($edit_uri); + +Delete a entry specified by an Edit URI. +Returns 1 if succeed. + +=back + + +=head2 publish ( I<$edit_uri> ) + +=over 4 + + $diary->publish($edit_uri); + +Publish a I<draft> entry specified by an Edit URI. +Returns 1 if succeed. + +If you publish a draft entry, the entry will be deleted from draft, +and a new I<blog> entry will be created. + +=back + + +=head1 DEVELOPMENT + +If you want to see latest version of this module, please see +L<https://github.com/hakobe/webservice-hatena-diary/tree> + + =head1 AUTHOR Yohei Fushii E<lt>hakobe@gmail.comE<gt> + =head1 LICENSE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. + =head1 SEE ALSO =over 4 -=item L<http://d.hatena.ne.jp> +=item * + +L<http://d.hatena.ne.jp> + +=item * + +L<http://d.hatena.ne.jp/keyword/%A4%CF%A4%C6%A4%CA%A5%C0%A5%A4%A5%A2%A5%EA%A1%BCAtomPub> + +=item * + +L<WWW::HatenaDiary> -=item L<http://d.hatena.ne.jp/keyword/%A4%CF%A4%C6%A4%CA%A5%C0%A5%A4%A5%A2%A5%EA%A1%BCAtomPub> +=item * -=item L<WWW::HatenaDiary> +L<XML::Atom> -=item L<XML::Atom> +=back =cut lib/WebService/Hatena/Diary.pm @@ -18,7 +18,7 @@ my $dusername = $ENV{WEBSERVICE_HATENA_DIARY_TEST_DUSERNAME} || $username; my $password = $ENV{WEBSERVICE_HATENA_DIARY_TEST_PASSWORD}; if ($username && $password) { - plan tests => 16; + plan tests => 17; } else { plan skip_all => "Set ENV:WEBSERVICE_HATENA_DIARY_TEST_USERNAME/PASSWORD"; @@ -94,13 +94,24 @@ $edit_uri = $diary->create({ }); # publish +sleep 3; # wait for create $diary->publish($edit_uri); + $diary->{mode} = 'blog'; # blogモード +sleep 3; # wait for publish $entry = ($diary->list)[0]; is($entry->{title}, $input_data->{title}); like($entry->{content}, qr/$input_data->{content}/); is($entry->{date}, $now->ymd); +## delete +$edit_uri = $entry->{edit_uri}; +$diary->delete($edit_uri); +$entry = $diary->retrieve($edit_uri); +ok(!$entry); +$diary->client->{_errstr} = ''; # errorをクリア + + $diary->{mode} = 'draft'; # draftモード t/02_crud_draft.t @@ -15,3 +15,16 @@ all_pod_files_spelling_ok('lib'); __DATA__ Yohei Fushii +API +AtomPub +DD +Hatena +URI +YYYY +blog +dusername +errstr +hatena +html +ua +username t/97_podspell.t 286e0e5289d8a070b4ba53c96ab5e904a6673286 hakobe932 hakobe@gmail.com http://github.com/hakobe/webservice-hatena-diary/commit/39e8fcff70673b9c92451462ad236acf4c88a713 39e8fcff70673b9c92451462ad236acf4c88a713 2008-09-23T07:57:51-07:00 2008-09-23T07:57:51-07:00 - POD を書いた - テストがあやしかったところを修正 43a96e98e90faf9879fcfdc5a8f01c7f1956c859 hakobe932 hakobe@gmail.com