The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
WebService-Hatena-Diary-0.01
River stage zero No dependents
1 ++
/ WebService::Hatena::Diary

NAME

WebService::Hatena::Diary - A Perl Interface for Hatena::Diary AtomPub API

SYNOPSIS

  use WebService::Hatena::Diary;

  my $diary = WebService::Hatena::Diary->new({
      username  => $username,
      password  => $password,
  });
  $diary->ua->timeout(10) # set ua option

  # list
  my @entries = $diary->list;

  # create
  my $edit_uri = $diary->create({
      title   => $title,
      content => $content,
  });

  # create on specified date
  $edit_uri = $diary->create({
      date    => $date, # YYYY-MM-DD
      title   => $title,
      content => $content,
  });

  # retrieve
  my $entry = $diary->retrieve($edit_uri);
  print $entry->{date};
  print $entry->{title};
  print $entry->{content};
  print $entry->{hatena_syntax};

  # update
  $diary->update($edit_uri, {
      title   => $new_title,
      content => $new_content,
  });

  # delete
  $diary->delete($edit_uri);


  # draft mode
  $diary = WebService::Hatena::Diary->new({
      mode      => 'draft',
      username  => $username,
      password  => $password,
  });

  # publish (draft mode only)
  $diary->publish($edit_uri);

DESCRIPTION

WebService::Hatena::Diary is a simple wrapper of Hatena::Diary AtomPub API. This provides CRUD interfaces for Hatena::Diary and it's draft entries.

METHOD

new ( \%args )

      my $diary = WebService::Hatena::Diary->new({
      username  => $username,
      dusername => $dusername,
      password  => $password,
      mode      => $mode,
  });

    Create a WebService::Hatena::Diary object.

    • username

      Your Hatena id.

    • dusername (Optional)

      Diary name that you want to manipulate. Default is username.

    • password

      Password for your Hatena id.

    • mode (Optional)

      API mode ( blog | draft ). Default is blog.

ua

      $diary->ua;

  Returns a UserAgent of this API.

errstr

      $diary->errstr;

    Returns a error messages of the last error.

list

      my @entries = $diary->list;

    Returns a LIST of entries of the specified (blog|draft). Each entry has values blow as a HASH object:

    • edit_uri

      Edit URI is a URI to identify a entry.

    • title

      Title of a entry.

    • content

      Content of a entry as a html format.

    • date

      YYYY-MM-DD style date of a entry.

create ( \%args )

      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 date on a YYYY-MM-DD format.

retrieve ( $edit_uri )

      my $entry = $diary->retrieve($edit_uri);

    Returns a entry specified by an Edit URI as a HASH object like below:

    • title

      Title of a entry.

    • content

      Content of a entry as a html format.

    • hatena_syntax

      Content of a entry as a hatena syntax format.

    • date

      YYYY-MM-DD style date of a entry.

update ( $edit_uri, \%args )

      $diary->update($edit_uri, {
      title   => $title,
      content => $content,
  });

    Update a entry specified by an Edit URI. Returns 1 if succeed.

delete ( $edit_uri )

      $diary->delete($edit_uri);

    Delete a entry specified by an Edit URI. Returns 1 if succeed.

publish ( $edit_uri )

      $diary->publish($edit_uri);

    Publish a 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 blog entry will be created.

DEVELOPMENT

If you want to see latest version of this module, please see https://github.com/hakobe/webservice-hatena-diary/tree

AUTHOR

Yohei Fushii <hakobe@gmail.com>

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO