update user agent and add more test cases

This commit is contained in:
wing328
2015-05-27 22:44:56 +08:00
parent 866b546cfd
commit 2c12312b97
9 changed files with 26 additions and 19 deletions

View File

@@ -27,11 +27,10 @@ use Exporter;
use Carp qw( croak );
use Log::Any qw($log);
use WWW::{{invokerPackage}}::APIClient;
use WWW::{{invokerPackage}}::Configuration;
{{#operations}}
use WWW::{{invokerPackage}}::APIClient;
our @EXPORT_OK = qw(
{{#operation}}{{{nickname}}}
{{/operation}}
@@ -39,7 +38,7 @@ our @EXPORT_OK = qw(
sub new {
my $class = shift;
my $default_api_client = WWW::{{invokerPackage}}::APIClient->new;
my $default_api_client = $WWW::{{invokerPackage}}::Configuration::api_client ? $WWW::{{invokerPackage}}::Configuration::api_client : WWW::{{invokerPackage}}::APIClient->new;
my (%self) = (
'api_client' => $default_api_client,
@_