File Coverage

blib/lib/WebService/Booklog.pm

Criterion	Covered	Total	%
statement	41	74	55.4
branch	13	16	81.2
condition	1	9	11.1
subroutine	8	19	42.1
pod	4	4	100.0
total	67	122	54.9

package WebService::Booklog;

use strict;
use warnings;

# ABSTRACT: Access to unofficial API of booklog.jp
our $VERSION = 'v0.0.1'; # VERSION

use LWP::UserAgent;
use JSON::Any;

sub new
{
	my ($self) = @_;
	my $class = ref $self || $self;
	return bless {
		_UA => LWP::UserAgent->new,
	}, $class;
}

my %status = (
	want_read => 1,
	reading => 2,
	read => 3,
	stacked => 4,
);

sub get_minishelf
{
	my ($self, $account, %arg) = @_;
	my $data = {};
	$data->{status} = $status{lc $arg{status}} if exists $arg{status};
	foreach my $key (qw(category rank count)) {
		$data->{$key} = $arg{$key} if exists $arg{$key};
	}
	my $param = join '&', map { $_.'='.$data->{$_} } keys %$data;
	$param = "?$param" if length $param;
	my $ret = JSON::Any->from_json($self->{_UA}->get('http://api.booklog.jp/json/'.$account.$param)->content);
	$ret->{category} = {} if ref $ret->{category} eq 'ARRAY';
	$ret->{books} = [ grep { ref $_ ne 'ARRAY' } @{$ret->{books}} ];
	return $ret;
}

sub get_review
{
	my ($self, $book_id) = @_;

	my $ret = JSON::Any->from_json($self->{_UA}->get('http://booklog.jp/json/review/'.$book_id)->content);
	return $ret->{$book_id} if exists $ret->{$book_id};
	return;
}

sub get_shelf
{
	my ($self, $account, %arg) = @_;
	my $data = {};
	$data->{status} = $status{lc $arg{status}} if exists $arg{status};
	$data->{category_id} = $arg{category} if exists $arg{category};
	foreach my $key (qw(sort rank tag genre page parpage keyword)) {
		$data->{$key} = $arg{$key} if exists $arg{$key};
	}
	my $param = join '&', map { $_.'='.$data->{$_} } keys %$data;
	my $ret = JSON::Any->from_json($self->{_UA}->get('http://booklog.jp/users_api/'.$account.'?'.$param)->content);
}

# Followings are not yet tested
sub _login
{
	my ($self, $account, $password) = @_;
	my $ret = $self->{_UA}->post('https://booklog.jp/login', { account => $account, password => $password });
}

sub _logout
{
	my ($self) = @_;
	my $ret = $self->{_UA}->get('http://booklog.jp/logout');
}

sub _add_fav
{
	my ($self, $book_id) = @_;
	$self->{_UA}->post('http://booklog.jp/api/review/fav', { book_id => $book_id });
}

sub _del_fav
{
	my ($self, $book_id) = @_;
	$self->{_UA}->post('http://booklog.jp/api/review/fav', { book_id => $book_id, _method => 'delete' });
}

sub _add_follow
{
	my ($self, $account) = @_;
	$self->{_UA}->post('http://booklog.jp/api/follow/add', { account => $account });
}

# status
# read_at_[ymd] (w/o 0 pad) / read_at_null
# rank
# category_id
# description
# public (2: revealer)
# tags
# create_on_[ymdhis] (w/ 0 pad)
# memo
sub _edit_review
{
	my ($self, $service, $id, $args) = @_;
	$args ||= {};
	$args->{_method} = 'edit';
	$self->{_UA}->post("http://booklog.jp/edit/$service/$id", $args);
}

# description
# page
sub _edit_quote
{
	my ($self, $service, $id, $args) = @_;
	$args ||= {};
	$args->{_method} = 'quote';
	$self->{_UA}->post("http://booklog.jp/edit/$service/$id#select_tab2", $args);
}

# read_at_[ymd] (w/o 0 pad)
# rank
# comment
sub _edit_reread
{
	my ($self, $service, $id, $book_id, $args) = @_;
	$args ||= {};
	$args->{_method} = 'reread';
	$args->{book_id} = $book_id;
	$self->{_UA}->post("http://booklog.jp/edit/$service/$id#select_tab2", $args);
}

sub _delete_item
{
	my ($self, $service, $id) = @_;
	my $args = { _method => 'delete' };
	$self->{_UA}->post("http://booklog.jp/edit/$service/$id#select_tab2", $args);
}

sub _sort_all
{
	my ($self, @book_id) = @_;
	my $arg = [map { ('booklist[]', $_) } @book_id];
	$self->{_UA}->post("http://booklog.jp/sort", $arg);
}

sub _set_sort
{
	my ($self, $book_id, $sort) = @_;
	$self->{_UA}->post('http://booklog.jp/sort_edit', { book_id => $book_id, 'sort' => $sort });
}

1;

__END__