view release on metacpan or  search on metacpan

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

	
	my $protectionRequest = AsposeWordsCloud::Object::ProtectionRequest->new('Password' => 'aspose','NewPassword' => '', 'ProtectionType' => 'NoProtection');

	$response = $wordsApi->PostChangeDocumentProtection(name=> $name, body=>$protectionRequest);
 	isa_ok($response, 'AsposeWordsCloud::Object::ProtectionDataResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testDeleteUnprotectDocument' => sub {
	my $name = 'SampleProtectedBlankWordDocument.docx';
	my $destfilename = "updated-" . $name;
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	my $protectionRequest = AsposeWordsCloud::Object::ProtectionRequest->new('Password' => 'aspose');

	$response = $wordsApi->DeleteUnprotectDocument(name=> $name, body=>$protectionRequest, filename =>$destfilename);
 	isa_ok($response, 'AsposeWordsCloud::Object::ProtectionDataResponse'); 	
 	is($response->{'Status'}, "OK"); 
};