0
@@ -24,4 +24,9 @@ WebService::Hatena::Diary documentation is available as in POD. So you can do:
0
 
0
 to read the documentation online with your favorite pager.
0
 
0
+DEVELOPMENT
0
+
0
+If you want to see latest version of this module, please see
0
+https://github.com/hakobe/webservice-hatena-diary/tree
0
+
0
 Yohei Fushii

0
@@ -209,25 +209,251 @@ WebService::Hatena::Diary - A Perl Interface for Hatena::Diary AtomPub API
0
 WebService::Hatena::Diary is a simple wrapper of Hatena::Diary AtomPub API. 
0
 This provides CRUD interfaces for Hatena::Diary and it's draft entries. 
0
 
0
+=head1 METHOD
0
+
0
+=head2 new ( I<\%args> )
0
+
0
+=over 4
0
+
0
+  my $diary = WebService::Hatena::Diary->new({
0
+      username  => $username,
0
+      dusername => $dusername,
0
+      password  => $password,
0
+      mode      => $mode,
0
+  });
0
+
0
+Create a WebService::Hatena::Diary object.
0
+
0
+=over 4
0
+
0
+=item * 
0
+
0
+B<username>
0
+
0
+Your Hatena id.
0
+
0
+=item *
0
+
0
+B<dusername> (Optional)
0
+
0
+Diary name that you want to manipulate.
0
+Default is username.
0
+
0
+=item *
0
+
0
+B<password>
0
+
0
+Password for your Hatena id.
0
+
0
+=item *
0
+
0
+B<mode> (Optional)
0
+
0
+API mode ( C<blog> | C<draft> ).
0
+Default is C<blog>.
0
+
0
+=back
0
+
0
+=back
0
+
0
+
0
+=head2 ua
0
+
0
+=over 4
0
+
0
+  $diary->ua;
0
+
0
+  Returns a UserAgent of this API.
0
+
0
+=back
0
+
0
+
0
+=head2 errstr
0
+
0
+=over 4
0
+
0
+  $diary->errstr;
0
+
0
+Returns a error messages of the last error.
0
+
0
+=back
0
+
0
+=head2 list
0
+
0
+=over 4
0
+
0
+  my @entries = $diary->list;
0
+
0
+Returns a LIST of entries of the specified (blog|draft). 
0
+Each entry has values blow as a HASH object:
0
+
0
+=over 4
0
+
0
+=item *
0
+
0
+B<edit_uri>
0
+
0
+Edit URI is a URI to identify a entry.
0
+
0
+=item *
0
+
0
+B<title>
0
+
0
+Title of a entry.
0
+
0
+=item *
0
+
0
+B<content>
0
+
0
+Content of a entry as a html format.
0
+
0
+=item *
0
+
0
+B<date>
0
+
0
+YYYY-MM-DD style date of a entry.
0
+
0
+=back
0
+
0
+=back
0
+
0
+
0
+=head2 create ( I<\%args> )
0
+
0
+=over 4
0
+
0
+  my $edit_uri = $diary->create({
0
+      title   => $title,
0
+      content => $content,
0
+      date    => $date,
0
+  });
0
+
0
+Create a new entry of the specified (blog|draft).
0
+Returns Edit URI of a created entry if succeed.
0
+
0
+You have to pass C<date> on a YYYY-MM-DD format.
0
+
0
+=back
0
+
0
+
0
+=head2 retrieve ( I<$edit_uri> )
0
+
0
+=over 4
0
+
0
+  my $entry = $diary->retrieve($edit_uri);
0
+
0
+Returns a entry specified by an Edit URI as a HASH object like below:
0
+
0
+=over 4
0
+
0
+=item *
0
+
0
+B<title>
0
+
0
+Title of a entry.
0
+
0
+=item *
0
+
0
+B<content>
0
+
0
+Content of a entry as a html format.
0
+
0
+=item *
0
+
0
+B<hatena_syntax>
0
+
0
+Content of a entry as a hatena syntax format.
0
+
0
+=item *
0
+
0
+B<date>
0
+
0
+YYYY-MM-DD style date of a entry.
0
+
0
+=back
0
+
0
+=back
0
+
0
+
0
+=head2 update ( I<$edit_uri>, I<\%args> )
0
+
0
+=over 4
0
+
0
+  $diary->update($edit_uri, {
0
+      title   => $title,
0
+      content => $content,
0
+  });
0
+
0
+Update a entry specified by an Edit URI.
0
+Returns 1 if succeed.
0
+
0
+=back
0
+
0
+
0
+=head2 delete ( I<$edit_uri> )
0
+
0
+=over 4
0
+
0
+  $diary->delete($edit_uri);
0
+
0
+Delete a entry specified by an Edit URI.
0
+Returns 1 if succeed.
0
+
0
+=back
0
+
0
+
0
+=head2 publish ( I<$edit_uri> )
0
+
0
+=over 4
0
+
0
+  $diary->publish($edit_uri);
0
+
0
+Publish a I<draft> entry specified by an Edit URI.
0
+Returns 1 if succeed.
0
+
0
+If you publish a draft entry, the entry will be deleted from draft, 
0
+and a new I<blog> entry will be created.
0
+
0
+=back
0
+
0
+
0
+=head1 DEVELOPMENT
0
+
0
+If you want to see latest version of this module, please see
0
+L<https://github.com/hakobe/webservice-hatena-diary/tree>
0
+
0
+
0
 =head1 AUTHOR
0
 
0
 Yohei Fushii E<lt>hakobe@gmail.comE<gt>
0
 
0
+
0
 =head1 LICENSE
0
 
0
 This library is free software; you can redistribute it and/or modify
0
 it under the same terms as Perl itself.
0
 
0
+
0
 =head1 SEE ALSO
0
 
0
 =over 4
0
 
0
-=item L<http://d.hatena.ne.jp>
0
+=item * 
0
+
0
+L<http://d.hatena.ne.jp>
0
+
0
+=item * 
0
+
0
+L<http://d.hatena.ne.jp/keyword/%A4%CF%A4%C6%A4%CA%A5%C0%A5%A4%A5%A2%A5%EA%A1%BCAtomPub>
0
+
0
+=item * 
0
+
0
+L<WWW::HatenaDiary>
0
 
0
-=item L<http://d.hatena.ne.jp/keyword/%A4%CF%A4%C6%A4%CA%A5%C0%A5%A4%A5%A2%A5%EA%A1%BCAtomPub>
0
+=item * 
0
 
0
-=item L<WWW::HatenaDiary>
0
+L<XML::Atom>
0
 
0
-=item L<XML::Atom>
0
+=back
0
 
0
 =cut

0
@@ -18,7 +18,7 @@ my $dusername = $ENV{WEBSERVICE_HATENA_DIARY_TEST_DUSERNAME} || $username;
0
 my $password  = $ENV{WEBSERVICE_HATENA_DIARY_TEST_PASSWORD};
0
 
0
 if ($username && $password) {
0
-    plan tests => 16;
0
+    plan tests => 17;
0
 }
0
 else {
0
     plan skip_all => "Set ENV:WEBSERVICE_HATENA_DIARY_TEST_USERNAME/PASSWORD";
0
@@ -94,13 +94,24 @@ $edit_uri = $diary->create({
0
 });
0
 
0
 # publish
0
+sleep 3; # wait for create
0
 $diary->publish($edit_uri);
0
+
0
 $diary->{mode} = 'blog'; # blogモード
0
 
0
+sleep 3; # wait for publish
0
 $entry = ($diary->list)[0];
0
 is($entry->{title},     $input_data->{title});
0
 like($entry->{content}, qr/$input_data->{content}/);
0
 is($entry->{date},      $now->ymd);
0
 
0
+## delete
0
+$edit_uri = $entry->{edit_uri};
0
+$diary->delete($edit_uri);
0
+$entry = $diary->retrieve($edit_uri);
0
+ok(!$entry);
0
+$diary->client->{_errstr} = ''; # errorをクリア
0
+
0
+
0
 $diary->{mode} = 'draft'; # draftモード
0
 

0
@@ -15,3 +15,16 @@ all_pod_files_spelling_ok('lib');
0
 __DATA__
0
 Yohei
0
 Fushii
0
+API
0
+AtomPub
0
+DD
0
+Hatena
0
+URI
0
+YYYY
0
+blog
0
+dusername
0
+errstr
0
+hatena
0
+html
0
+ua
0
+username