File Coverage

lib/WebService/UINames.pm

Criterion	Covered	Total	%
statement	26	27	96.3
branch			n/a
condition			n/a
subroutine	9	10	90.0
pod	1	1	100.0
total	36	38	94.7

package WebService::UINames;
# ABSTRACT: WebService::UINames - uinames.com API interface for Perl

# pragmas
use utf8;
use 5.10.0;

#imports
use Moo;
use Carp;
use JSON;
use Try::Tiny;
use LWP::UserAgent;

# version
our $VERSION = 0.01;


# attributes
has '_ua' => (
  is => 'ro', default => sub {
    my $ua = LWP::UserAgent->new;
    $ua->agent('WebService-UINames/0.01 Perl API Client');
    return $ua;
  }
);


# methods
sub get_name {
  my ($self, $args) = (shift, {@_});

  # sending data
  my $res = $self->_ua->get(
    'http://uinames.com/api/', form => $args
  );

  my $json = {};
  try {
    $json = JSON::decode_json($res->decoded_content)
  }
  catch {
    warn "JSON Decode Exception: $_";
  };

  return $json;
}

1;
__END__