view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

# Aspose.BarCode Cloud SDK for Perl

This repository contains Aspose.BarCode Cloud SDK for Perl source code. This SDK allows you to work with Aspose.BarCode Cloud REST APIs in your perl applications quickly and easily. 
<p align="center">
  <a title="Download complete Aspose.BarCode for Cloud source code" href="https://github.com/asposebarcode/Aspose_BarCode_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/barcodecloud/Available+SDKs).



## Quick SDK Tutorial

README.md  view on Meta::CPAN

my $barcodeApi = AsposeBarCodeCloud::BarcodeApi->new();

my $data_path = '../../../Data/';


my $name = 'sample-barcode';
my $text = 'Aspose.BarCode for Cloud';
my $type = 'datamatrix';
my $format = 'png';

#invoke Aspose.BarCode Cloud SDK API to create barcode and save image to a stream           
my $response = $barcodeApi->GetBarcodeGenerate(text => $text, type => $type, format => $format);

if($response->{'Status'} eq 'OK'){
	#download generated barcode from api response 
	my $output_file = 'C:/temp/'. $name . '.' . $format;	
	write_file($output_file, { binmode => ":raw" }, $response->{'Content'});
}

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

	$AsposeStorageCloud::Configuration::debug = $AsposeBarCodeCloud::Configuration::debug;
}

my $storageApi = AsposeStorageCloud::StorageApi->new();
my $barcodeApi = AsposeBarCodeCloud::BarcodeApi->new();


subtest 'testGetBarcodeGenerate' => sub {
	my $text = 'Aspose for cloud';
	my $type = 'qr';
	my $format = 'png';
 	my $response = $barcodeApi->GetBarcodeGenerate(text => $text, type => $type, format => $format);
 	is($response->{'Status'}, "OK");
};

subtest 'testPostGenerateMultiple' => sub {
	my $format = 'png';
	my @bar1 = AsposeBarCodeCloud::Object::BarcodeBuilder->new('TypeOfBarcode' => 'qr', 'Text' => 'NewBarCode');
	my @bar2 = AsposeBarCodeCloud::Object::BarcodeBuilder->new('TypeOfBarcode' => 'qr', 'Text' => 'Aspose');
	my @barbuilders = AsposeBarCodeCloud::Object::BarcodeBuildersList->new('BarcodeBuilders' => [@bar1, @bar2], 'XStep' => 10, 'YStep' => 10);
 	my $response = $barcodeApi->PostGenerateMultiple(format => $format, body=>@barbuilders);
 	is($response->{'Status'}, "OK");
};

subtest 'testPostBarcodeRecognizeFromUrlorContent' => sub {
	my $url = 'http://www.barcoding.com/images/Barcodes/code93.gif';
 	my $response = $barcodeApi->PostBarcodeRecognizeFromUrlorContent(url => $url);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposeBarCodeCloud::Object::BarcodeResponseList');
};

subtest 'testPutBarcodeGenerateFile' => sub {
	my $name = 'testbar.png';
	my $type = 'qr';
	my $text = 'Aspose.Barcode for Cloud';
 	my $response = $barcodeApi->PutBarcodeGenerateFile(name => $name, type => $type, text => $text);
 	is($response->{'Status'}, "OK");
};

subtest 'testPutGenerateMultiple' => sub {
	my $name = 'newfile.png';
	my $file = 'sample.txt';
	my $response = $barcodeApi->PutGenerateMultiple(name => $name, file => $data_path.$file);
 	is($response->{'Status'}, "OK");
};

subtest 'testGetBarcodeRecognize' => sub {
	my $name = 'sample-barcode.jpeg';
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
	$response = $barcodeApi->GetBarcodeRecognize(name => $name);