AsposeDiagramCloud-DiagramApi
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/AsposeDiagramCloud/DiagramApi.pm view on Meta::CPAN
sub new {
my $class = shift;
my $api_client;
if ($_[0] && ref $_[0] && ref $_[0] eq 'AsposeDiagramCloud::ApiClient' ) {
$api_client = $_[0];
} else {
$api_client = AsposeDiagramCloud::ApiClient->new(@_);
}
my $access_token = $api_client->o_auth_post('grant_type' => "client_credentials", 'client_id' => $api_client->{config}->{app_sid}, 'client_secret' =>$api_client->{config}->{app_key})->access_token;
$api_client->{config}->{access_token} = $access_token;
my $base_url = $api_client->{config}->{base_url};
if( substr( $base_url,length($base_url)-1,1) eq '/'){
$base_url = $base_url . $api_client->{config}->{api_version};
}else{
$base_url = $base_url . '/'.$api_client->{config}->{api_version};
}
$api_client->{config}->{base_url} = $base_url;
lib/AsposeDiagramCloud/StorageApi.pm view on Meta::CPAN
sub new {
my $class = shift;
my $api_client;
if ($_[0] && ref $_[0] && ref $_[0] eq 'AsposeDiagramCloud::ApiClient' ) {
$api_client = $_[0];
} else {
$api_client = AsposeDiagramCloud::ApiClient->new(@_);
}
my $access_token = $api_client->o_auth_post('grant_type' => "client_credentials", 'client_id' => $api_client->{config}->{app_sid}, 'client_secret' =>$api_client->{config}->{app_key})->access_token;
$api_client->{config}->{access_token} = $access_token;
my $base_url = $api_client->{config}->{base_url};
if( substr( $base_url,length($base_url)-1,1) eq '/'){
$base_url = $base_url . $api_client->{config}->{api_version};
}else{
$base_url = $base_url . '/'.$api_client->{config}->{api_version};
}
$api_client->{config}->{base_url} = $base_url;
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.007 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )