| 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 |  |  |  |  |  |  |  |