From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

 / 
WebService-Hatena-Diary-0.01
River stage zero No dependents
/ 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