File Coverage

lib/WebService/Qiita/Client/Items.pm
Criterion Covered Total %
statement 24 28 85.7
branch n/a
condition 1 2 50.0
subroutine 9 11 81.8
pod 0 7 0.0
total 34 48 70.8


line stmt bran cond sub pod time code
1             package WebService::Qiita::Client::Items;
2 6     6   2382 use strict;
  6         11  
  6         183  
3 6     6   29 use warnings;
  6         7  
  6         131  
4 6     6   25 use utf8;
  6         10  
  6         25  
5              
6 6     6   154 use parent qw(WebService::Qiita::Client::Base);
  6         9  
  6         24  
7              
8             sub post_item {
9 1     1 0 15 my ($self, $params) = @_;
10 1         12 $self->post('/items', $params);
11             }
12              
13             sub update_item {
14 1     1 0 23 my ($self, $uuid, $params) = @_;
15 1         14 $self->put("/items/$uuid", $params);
16             }
17              
18             sub delete_item {
19 1     1 0 58 my ($self, $uuid) = @_;
20 1         14 $self->delete("/items/$uuid");
21             }
22              
23             sub item {
24 2     2 0 44 my ($self, $uuid) = @_;
25 2         27 $self->get("/items/$uuid");
26             }
27              
28             sub search_items {
29 1     1 0 39 my ($self, $query, $params) = @_;
30 1   50     10 $params ||= {};
31 1         4 $params->{q} = $query;
32 1         7 $self->get("/search", $params);
33             }
34              
35             sub stock_item {
36 0     0 0   my ($self, $uuid) = @_;
37 0           $self->put("/items/$uuid/stock");
38             }
39              
40             sub unstock_item {
41 0     0 0   my ($self, $uuid) = @_;
42 0           $self->delete("/items/$uuid/unstock");
43             }
44              
45             1;
46             __END__