prepare new release

Author: KaiSchwarz-cnic

lib/WebService/Hexonet.pm

@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use WebService::Hexonet::Connector;
 
-our $VERSION = '1.05';
+our $VERSION = '1.06';
 
 1;
 

lib/WebService/Hexonet/Connector.pm

@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use WebService::Hexonet::Connector::Connection;
 
-our $VERSION = '1.05';
+our $VERSION = '1.06';
 
 sub connect {
     return WebService::Hexonet::Connector::Connection->new(@_);

lib/WebService/Hexonet/Connector/Connection.pm

@@ -6,7 +6,7 @@ use WebService::Hexonet::Connector::Response;
 use WebService::Hexonet::Connector::Util;
 use LWP::UserAgent;
 
-our $VERSION = '1.05';
+our $VERSION = '1.06';
 
 sub new {
     my $class = shift;
@@ -71,18 +71,25 @@ sub call_raw_http {
         }
     }
 
-    my $response = $self->{_useragent}->post( $url, $post );
-    return $response->content();
-
+    my $r = $self->{_useragent}->post( $url, $post );
+    if ( $r->is_success ) {
+        return $r->decoded_content;
+    }
+    my $err = $r->status_line;
+    return ("[RESPONSE]\r\n"
+          . "CODE=421\r\n"
+          . "DESCRIPTION=HTTP communication failed;$err\r\n"
+          . "EOF\r\n" );
 }
 
 sub _get_useragent {
     my $self = shift;
     return $self->{_useragent} if exists $self->{_useragent};
-    $self->{_useragent} = new LWP::UserAgent(
+    $self->{_useragent} = LWP::UserAgent->new(
         agent      => "Hexonet-perl/$WebService::Hexonet::Connector::VERSION",
-        keep_alive => 4
+        keep_alive => 4,
     );
+    $self->{_useragent}->default_header( 'Expect', '' );
     return $self->{_useragent};
 }
 

lib/WebService/Hexonet/Connector/Response.pm

@@ -8,7 +8,7 @@ use overload
   '@{}' => \&as_list,
   ;
 
-our $VERSION = '1.05';
+our $VERSION = '1.06';
 
 sub new {
     my $class    = shift;

lib/WebService/Hexonet/Connector/Util.pm

@@ -7,7 +7,7 @@ use base 'Exporter';
 use Time::Local;
 use MIME::Base64;
 
-our $VERSION = '1.05';
+our $VERSION = '1.06';
 
 our @EXPORT    = qw();
 our @EXPORT_OK = qw(sqltime timesql);

t/Hexonet-connector.t

@@ -1,14 +1,15 @@
 use strict;
 use warnings;
 
-use Test::More tests => 50;
+use Test::More;
 use Test::Exception;
+use Test::RequiresInternet ( 'coreapi.1api.net' => 80 );
 
-our $VERSION = '1.05';
+our $VERSION = '1.06';
 
-#######################################
+##########################
 # TESTS for Connection.pm
-#######################################
+##########################
 
 # T1-5: test import modules
 use_ok( "lib",                                      qw(./lib) );
@@ -277,3 +278,5 @@ ok( $enc eq "ZGFzIHN0aW5rdCB6dW0gSGltbWVs" );
 #T50
 $dec = WebService::Hexonet::Connector::Util::base64_decode($enc);
 ok( $dec eq $key );
+
+done_testing();