File Coverage

blib/lib/WWW/REST/Simple.pm

Criterion	Covered	Total	%
statement	18	31	58.0
branch	0	10	0.0
condition			n/a
subroutine	6	9	66.6
pod	0	2	0.0
total	24	52	46.1

use strict;
use warnings;
package WWW::REST::Simple;
use LWP::UserAgent;
use URI;
use utf8;

# ABSTRACT: turns baubles into trinkets

use base 'Exporter';
our @EXPORT = qw/get post/;

our $VERSION = '0.002';

sub get {
  die "At least an url is needed!" if @_ < 1;
  _send_request('GET', @_);
}

sub post {
  die "At least an url is needed!" if @_ < 1;
  _send_request('POST', @_);
}

sub _send_request {
  my ($method, $url, $args) = @_;
  my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 1 });
  $ua->timeout(20);
  $url = URI->new($url);
  $url->query_form(%$args) if $method eq 'GET';
  my $request = new HTTP::Request( $method => $url );
  $request->content($args) if $method eq 'POST';
  my $resp = $ua->request( $request );
  $resp->is_success ? $resp->content : $resp->status_line;
}

1;

__END__