AsposeImagingCloud-ImagingApi

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

lib/AsposeImagingCloud/Object/JfifData.pm
lib/AsposeImagingCloud/Object/JpegExifData.pm
lib/AsposeImagingCloud/Object/JpegProperties.pm
lib/AsposeImagingCloud/Object/LineNumberRestartMode.pm
lib/AsposeImagingCloud/Object/NumberStyle.pm
lib/AsposeImagingCloud/Object/Orientation.pm
lib/AsposeImagingCloud/Object/PageBorderAppliesTo.pm
lib/AsposeImagingCloud/Object/PageBorderDistanceFrom.pm
lib/AsposeImagingCloud/Object/PageVerticalAlignment.pm
lib/AsposeImagingCloud/Object/PaperSize.pm
lib/AsposeImagingCloud/Object/PngProperties.pm
lib/AsposeImagingCloud/Object/PsdProperties.pm
lib/AsposeImagingCloud/Object/ReportType.pm
lib/AsposeImagingCloud/Object/ResponseMessage.pm
lib/AsposeImagingCloud/Object/SaaSposeResponse.pm
lib/AsposeImagingCloud/Object/SectionStart.pm
lib/AsposeImagingCloud/Object/StyleIdentifier.pm
lib/AsposeImagingCloud/Object/TextEffect.pm
lib/AsposeImagingCloud/Object/TiffProperties.pm
lib/AsposeImagingCloud/Object/Underline.pm
Makefile.PL

META.json  view on Meta::CPAN

      },
      "AsposeImagingCloud::Object::PageBorderDistanceFrom" : {
         "file" : "lib/AsposeImagingCloud/Object/PageBorderDistanceFrom.pm"
      },
      "AsposeImagingCloud::Object::PageVerticalAlignment" : {
         "file" : "lib/AsposeImagingCloud/Object/PageVerticalAlignment.pm"
      },
      "AsposeImagingCloud::Object::PaperSize" : {
         "file" : "lib/AsposeImagingCloud/Object/PaperSize.pm"
      },
      "AsposeImagingCloud::Object::PngProperties" : {
         "file" : "lib/AsposeImagingCloud/Object/PngProperties.pm"
      },
      "AsposeImagingCloud::Object::PsdProperties" : {
         "file" : "lib/AsposeImagingCloud/Object/PsdProperties.pm"
      },
      "AsposeImagingCloud::Object::ReportType" : {
         "file" : "lib/AsposeImagingCloud/Object/ReportType.pm"
      },
      "AsposeImagingCloud::Object::ResponseMessage" : {
         "file" : "lib/AsposeImagingCloud/Object/ResponseMessage.pm"
      },

META.yml  view on Meta::CPAN

  AsposeImagingCloud::Object::Orientation:
    file: lib/AsposeImagingCloud/Object/Orientation.pm
  AsposeImagingCloud::Object::PageBorderAppliesTo:
    file: lib/AsposeImagingCloud/Object/PageBorderAppliesTo.pm
  AsposeImagingCloud::Object::PageBorderDistanceFrom:
    file: lib/AsposeImagingCloud/Object/PageBorderDistanceFrom.pm
  AsposeImagingCloud::Object::PageVerticalAlignment:
    file: lib/AsposeImagingCloud/Object/PageVerticalAlignment.pm
  AsposeImagingCloud::Object::PaperSize:
    file: lib/AsposeImagingCloud/Object/PaperSize.pm
  AsposeImagingCloud::Object::PngProperties:
    file: lib/AsposeImagingCloud/Object/PngProperties.pm
  AsposeImagingCloud::Object::PsdProperties:
    file: lib/AsposeImagingCloud/Object/PsdProperties.pm
  AsposeImagingCloud::Object::ReportType:
    file: lib/AsposeImagingCloud/Object/ReportType.pm
  AsposeImagingCloud::Object::ResponseMessage:
    file: lib/AsposeImagingCloud/Object/ResponseMessage.pm
  AsposeImagingCloud::Object::SaaSposeResponse:
    file: lib/AsposeImagingCloud/Object/SaaSposeResponse.pm
  AsposeImagingCloud::Object::SectionStart:
    file: lib/AsposeImagingCloud/Object/SectionStart.pm

lib/AsposeImagingCloud/ImagingApi.pm  view on Meta::CPAN

	if($AsposeImagingCloud::Configuration::debug){
		print "\nResponse Content: ".$response->content;
	}    
	
	my $_response_object = $self->{api_client}->pre_deserialize($response->content, 'ResponseMessage', $response->header('content-type'));
    return $_response_object;
    
}
#
# PostImagePng
#
# Update parameters of png image.
# 
# @param Boolean $fromScratch Specifies where additional parameters we do not support should be taken from. If this is true – they will be taken from default values for standard image, if it is false – they will be saved from current im...
# @param String $outPath Path to updated file, if this is empty, response contains streamed image. (optional)
# @param File $file  (required)
# @return ResponseMessage
#
sub PostImagePng {
    my ($self, %args) = @_;

    
    # verify the required parameter 'file' is set
    unless (exists $args{'file'}) {
      croak("Missing the required parameter 'file' when calling PostImagePng");
    }
    

    # parse inputs
    my $_resource_path = '/imaging/png/?appSid={appSid}&fromScratch={fromScratch}&outPath={outPath}';
    
	$_resource_path =~ s/\Q&\E/&/g;
    $_resource_path =~ s/\Q\/?\E/?/g;
    $_resource_path =~ s/\QtoFormat={toFormat}\E/format={format}/g;
	$_resource_path =~ s/\Q{path}\E/{Path}/g;

lib/AsposeImagingCloud/ImagingApi.pm  view on Meta::CPAN

	if($AsposeImagingCloud::Configuration::debug){
		print "\nResponse Content: ".$response->content;
	}    
	
	my $_response_object = $self->{api_client}->pre_deserialize($response->content, 'ResponseMessage', $response->header('content-type'));
    return $_response_object;
    
}
#
# GetImagePng
#
# Update parameters of png image.
# 
# @param String $name Filename of image. (required)
# @param Boolean $fromScratch Specifies where additional parameters we do not support should be taken from. If this is true – they will be taken from default values for standard image, if it is false – they will be saved from current im...
# @param String $outPath Path to updated file, if this is empty, response contains streamed image. (optional)
# @param String $folder Folder with image to process. (optional)
# @param String $storage  (optional)
# @return ResponseMessage
#
sub GetImagePng {
    my ($self, %args) = @_;

    
    # verify the required parameter 'name' is set
    unless (exists $args{'name'}) {
      croak("Missing the required parameter 'name' when calling GetImagePng");
    }
    

    # parse inputs
    my $_resource_path = '/imaging/{name}/png/?appSid={appSid}&fromScratch={fromScratch}&outPath={outPath}&folder={folder}&storage={storage}';
    
	$_resource_path =~ s/\Q&\E/&/g;
    $_resource_path =~ s/\Q\/?\E/?/g;
    $_resource_path =~ s/\QtoFormat={toFormat}\E/format={format}/g;
	$_resource_path =~ s/\Q{path}\E/{Path}/g;

lib/AsposeImagingCloud/Object/ImagingResponse.pm  view on Meta::CPAN

#NOTE: This class is auto generated by the swagger code generator program. Do not edit the class manually.
#

my $swagger_types = {
    'Height' => 'int',
    'Width' => 'int',
    'BitsPerPixel' => 'int',
    'BmpProperties' => 'BmpProperties',
    'GifProperties' => 'GifProperties',
    'JpegProperties' => 'JpegProperties',
    'PngProperties' => 'PngProperties',
    'TiffProperties' => 'TiffProperties',
    'PsdProperties' => 'PsdProperties',
    'HorizontalResolution' => 'double',
    'VerticalResolution' => 'double',
    'IsCached' => 'boolean',
    'Code' => 'string',
    'Status' => 'string'
};

my $attribute_map = {
    'Height' => 'Height',
    'Width' => 'Width',
    'BitsPerPixel' => 'BitsPerPixel',
    'BmpProperties' => 'BmpProperties',
    'GifProperties' => 'GifProperties',
    'JpegProperties' => 'JpegProperties',
    'PngProperties' => 'PngProperties',
    'TiffProperties' => 'TiffProperties',
    'PsdProperties' => 'PsdProperties',
    'HorizontalResolution' => 'HorizontalResolution',
    'VerticalResolution' => 'VerticalResolution',
    'IsCached' => 'IsCached',
    'Code' => 'Code',
    'Status' => 'Status'
};

# new object

lib/AsposeImagingCloud/Object/ImagingResponse.pm  view on Meta::CPAN

        'Width' => $args{'Width'}, 
        #
        'BitsPerPixel' => $args{'BitsPerPixel'}, 
        #
        'BmpProperties' => $args{'BmpProperties'}, 
        #
        'GifProperties' => $args{'GifProperties'}, 
        #
        'JpegProperties' => $args{'JpegProperties'}, 
        #
        'PngProperties' => $args{'PngProperties'}, 
        #
        'TiffProperties' => $args{'TiffProperties'}, 
        #
        'PsdProperties' => $args{'PsdProperties'}, 
        #
        'HorizontalResolution' => $args{'HorizontalResolution'}, 
        #
        'VerticalResolution' => $args{'VerticalResolution'}, 
        #
        'IsCached' => $args{'IsCached'}, 

lib/AsposeImagingCloud/Object/PngProperties.pm  view on Meta::CPAN

package AsposeImagingCloud::Object::PngProperties;

require 5.6.0;
use strict;
use warnings;
use utf8;
use JSON qw(decode_json);
use Data::Dumper;
use Module::Runtime qw(use_module);
use Log::Any qw($log);
use Date::Parse;

t/01_imaging_api.t  view on Meta::CPAN

};

subtest 'testPostImageJpg' => sub {
	my $name = 'aspose.jpg';
	my $quality = 100;
	my $compressionType = 'progressive';
 	my $response = $imagingApi->PostImageJpg(name => $name, quality => $quality, compressionType => $compressionType, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
};

subtest 'testPostImagePng' => sub {
	my $name = 'aspose_imaging_for_cloud.png';
	my $fromScratch = 'True';	
 	my $response = $imagingApi->PostImagePng(fromScratch => $fromScratch, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
};

subtest 'testPostImagePsd' => sub {
	my $name = 'sample.psd';
	my $channelsCount = 3;
	my $compressionMethod = 'rle';	
 	my $response = $imagingApi->PostImagePsd(channelsCount => $channelsCount, compressionMethod => $compressionMethod,  file => $data_path.$name);
 	is($response->{'Status'}, "OK");
};

t/01_imaging_api.t  view on Meta::CPAN

subtest 'testGetImageJpg' => sub {
	my $name = 'aspose.jpg';
	my $quality = 100;
	my $compressionType = 'progressive';
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
	$response = $imagingApi->GetImageJpg(name => $name, quality => $quality, compressionType => $compressionType);
 	is($response->{'Status'}, "OK");
};

subtest 'testGetImagePng' => sub {
	my $name = 'aspose_imaging_for_cloud.png';
	my $fromScratch = 'True';	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
	$response = $imagingApi->GetImagePng(name => $name, fromScratch => $fromScratch);
 	is($response->{'Status'}, "OK");
};

subtest 'testGetImageProperties' => sub {
	my $name = 'demo.tif';
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
	$response = $imagingApi->GetImageProperties(name => $name);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposeImagingCloud::Object::ImagingResponse');