File Coverage

blib/lib/WWW/REST/Simple.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

use strict;
use warnings;
package WWW::REST::Simple;
use LWP::UserAgent;
use LWP::Protocol::https;
use HTTP::Request::Common;
use URI;
use utf8;

# ABSTRACT: Just provides GET and POST http method

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

our $VERSION = '0.004';

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

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

sub _send_request {
  my ($method, $url, $args, $header) = @_;
  $args ||= {};
  $header ||= {};
  my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 1 });
  $ua->timeout(10);
  $url = URI->new($url);

  my $resp = do {
    if ($method eq 'GET') {
      $url->query_form(%$args);
      $ua->request( GET $url, %$header);
    }
    else {
      $ua->request( POST $url, %$header, Content => $args );
    }
  };

  $resp->is_success ? $resp->content : $resp->status_line;
}

1;

__END__