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   2664 use strict;
  7         20  
  7         184  
4 7     7   36 use warnings;
  7         22  
  7         276  
5              
6             our $VERSION = 0.02_01;
7              
8 7     7   2048 use URI ();
  7         28884  
  7         138  
9 7     7   1932 use Log::Any ();
  7         45641  
  7         157  
10 7     7   56 use Moo::Role;
  7         18  
  7         47  
11 7     7   2787 use namespace::clean;
  7         16  
  7         44  
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