API-ParallelsWPB

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Perl extension API::ParallelsWPB

0.03    Tue Jul 1 08:40:44 2014 +0000

    - fixed utf8 flag in request
    - JSON replaced with JSON::XS
    - If error is not in JSON, it is returned "as is"


0.01    Tue Nov 26 12:22:16 2013
        - first release;

META.json  view on Meta::CPAN

            "Test::Kwalitee" : "1.12",
            "Test::More" : "0",
            "Test::NoTabs" : "0",
            "Test::Pod" : "1.41",
            "Test::Pod::Coverage" : "1.08"
         }
      },
      "runtime" : {
         "requires" : {
            "Carp" : "0",
            "JSON::XS" : "0",
            "LWP::Protocol::https" : "0",
            "LWP::UserAgent" : "0",
            "perl" : "5.008009",
            "strict" : "0",
            "warnings" : "0"
         }
      },
      "test" : {
         "requires" : {
            "File::Spec" : "0",

META.yml  view on Meta::CPAN

    file: lib/API/ParallelsWPB.pm
    version: 0.03
  API::ParallelsWPB::Requests:
    file: lib/API/ParallelsWPB/Requests.pm
    version: 0.03
  API::ParallelsWPB::Response:
    file: lib/API/ParallelsWPB/Response.pm
    version: 0.03
requires:
  Carp: 0
  JSON::XS: 0
  LWP::Protocol::https: 0
  LWP::UserAgent: 0
  perl: 5.008009
  strict: 0
  warnings: 0
resources: {}
version: 0.03
x_authority: cpan:IMAGO

Makefile.PL  view on Meta::CPAN

  "AUTHOR" => "Alexander Ruzhnikov <a.ruzhnikov\@reg.ru>, Polina Shubina <shubina\@reg.ru>",
  "CONFIGURE_REQUIRES" => {
    "ExtUtils::MakeMaker" => "6.30"
  },
  "DISTNAME" => "API-ParallelsWPB",
  "EXE_FILES" => [],
  "LICENSE" => "perl",
  "NAME" => "API::ParallelsWPB",
  "PREREQ_PM" => {
    "Carp" => 0,
    "JSON::XS" => 0,
    "LWP::Protocol::https" => 0,
    "LWP::UserAgent" => 0,
    "strict" => 0,
    "warnings" => 0
  },
  "TEST_REQUIRES" => {
    "File::Spec" => 0,
    "File::Temp" => 0,
    "HTTP::Response" => "6.04",
    "IO::Handle" => 0,

Makefile.PL  view on Meta::CPAN

);


my %FallbackPrereqs = (
  "Carp" => 0,
  "File::Spec" => 0,
  "File::Temp" => 0,
  "HTTP::Response" => "6.04",
  "IO::Handle" => 0,
  "IPC::Open3" => 0,
  "JSON::XS" => 0,
  "LWP::Protocol::https" => 0,
  "LWP::UserAgent" => 0,
  "Test::Fatal" => "0.010",
  "Test::More" => "0.98",
  "Test::Pod" => "1.22",
  "Test::Warnings" => "0.010",
  "strict" => 0,
  "warnings" => 0
);

lib/API/ParallelsWPB.pm  view on Meta::CPAN

package API::ParallelsWPB;

use strict;
use warnings;

use LWP::UserAgent;
use HTTP::Request;
use JSON::XS;
use Carp;
use API::ParallelsWPB::Response;

use base qw/ API::ParallelsWPB::Requests /;

# ABSTRACT:  client for Parallels Presence Builder API

our $VERSION = '0.03'; # VERSION
our $AUTHORITY = 'cpan:IMAGO'; # AUTHORITY

lib/API/ParallelsWPB.pm  view on Meta::CPAN

    warn $res->as_string if ( $self->{debug} );

    my $response = API::ParallelsWPB::Response->new( $res );
    return $response;
}

sub _json {
    my ( $self ) = @_;

    unless( $self->{_json} ) {
        $self->{_json} = JSON::XS->new;
    }
    return $self->{_json};
}

1;

__END__

=pod

lib/API/ParallelsWPB/Response.pm  view on Meta::CPAN

package API::ParallelsWPB::Response;
use strict;
use warnings;
use JSON::XS qw/decode_json/;

# ABSTRACT: processing of API responses

our $VERSION = '0.03'; # VERSION
our $AUTHORITY = 'cpan:IMAGO'; # AUTHORITY


sub new {
    my ( $class, $res ) = @_;