File Coverage

blib/lib/WWW/ORCID/Base.pm
Criterion Covered Total %
statement 18 23 78.2
branch n/a
condition n/a
subroutine 6 8 75.0
pod n/a
total 24 31 77.4


line stmt bran cond sub pod time code
1             package WWW::ORCID::Base;
2              
3 7     7   3173 use strict;
  7         26  
  7         216  
4 7     7   43 use warnings;
  7         16  
  7         330  
5              
6             our $VERSION = 0.0401;
7              
8 7     7   2316 use URI ();
  7         31394  
  7         195  
9 7     7   2346 use Log::Any ();
  7         47317  
  7         195  
10 7     7   78 use Moo::Role;
  7         22  
  7         71  
11 7     7   3339 use namespace::clean;
  7         21  
  7         68  
12              
13             has log => (is => 'lazy',);
14              
15             sub _build_log {
16 0     0     Log::Any->get_logger;
17             }
18              
19             sub _param_url {
20 0     0     my ($self, $url, $params) = @_;
21 0           $url = URI->new($url);
22 0           $url->query_form($params);
23 0           $url->as_string;
24             }
25              
26             1;
27