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   3343 use strict;
  7         16  
  7         197  
4 7     7   34 use warnings;
  7         16  
  7         260  
5              
6             our $VERSION = 0.0402;
7              
8 7     7   2988 use URI ();
  7         29766  
  7         132  
9 7     7   3015 use Log::Any ();
  7         53827  
  7         189  
10 7     7   49 use Moo::Role;
  7         14  
  7         59  
11 7     7   2784 use namespace::clean;
  7         14  
  7         49  
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