view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

##Aspose.Pdf Cloud SDK for Perl

This repository contains Aspose.Pdf Cloud SDK for Perl source code. This SDK allows you to work with Aspose.Pdf Cloud REST APIs in your Perl applications quickly and easily. 

<p align="center">
  <a title="Download complete Aspose.PDF for Cloud source code" href="https://github.com/asposepdf/Aspose_pdf_Cloud/archive/master.zip">
	<img src="https://raw.github.com/AsposeExamples/java-examples-dashboard/master/images/downloadZip-Button-Large.png" />
  </a>
</p>

##How to Use the SDK?
The complete source code is available in this repository folder. For more details, please visit our [documentation website](http://www.aspose.com/docs/display/pdfcloud/Available+SDKs).


##Quick SDK Tutorial

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

	my $pageNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->DeletePage(name=>$name, pageNumber=>$pageNumber);
 	is($response->{'Status'}, "OK");
};

subtest 'testGetPageWithFormat' => sub {
	my $name =  'Sample-Annotation.pdf';
	my $pageNumber =  1;
	my $format = 'png';
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetPageWithFormat(name=>$name, pageNumber=>$pageNumber , format=>$format);
 	is($response->{'Status'}, "OK");
};

subtest 'testGetPageAnnotations' => sub {
	my $name =  'Sample-Annotation.pdf';
	my $pageNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);

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

 	$response = $pdfApi->GetImages(name=>$name, pageNumber=>$pageNumber);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposePdfCloud::Object::ImagesResponse');
};


subtest 'testPostReplaceImage' => sub {
	my $name =  'SampleImage.pdf';
	my $pageNumber =  1;
	my $imageNumber =  1;
	my $imageFile =  'aspose-cloud.png';
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->PostReplaceImage(name=>$name, pageNumber=>$pageNumber, imageNumber=>$imageNumber, file => $data_path.$imageFile);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposePdfCloud::Object::ImageResponse');
};

subtest 'testGetImage' => sub {
	my $name =  'SampleImage.pdf';
	my $pageNumber =  1;