File Coverage

lib/WebService/Qiita/Client/Tags.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 22 24 91.6


line stmt bran cond sub pod time code
1             package WebService::Qiita::Client::Tags;
2 6     6   2739 use strict;
  6         13  
  6         190  
3 6     6   36 use warnings;
  6         10  
  6         182  
4 6     6   32 use utf8;
  6         17  
  6         47  
5              
6 6     6   185 use parent qw(WebService::Qiita::Client::Base);
  6         101  
  6         43  
7              
8             sub tag_items {
9 2     2 0 42 my ($self, $url_name, $params) = @_;
10 2         18 $self->get("/tags/$url_name/items", $params);
11             }
12              
13             sub tags {
14 2     2 0 22 my ($self, $params) = @_;
15 2         8 $self->get("/tags", $params);
16             }
17              
18              
19             1;