AsposeWordsCloud-WordsApi

 view release on metacpan or  search on metacpan

lib/AsposeWordsCloud/Object/FormField.pm  view on Meta::CPAN

#

my $swagger_types = {
    'Name' => 'string',
    'Enabled' => 'boolean',
    'StatusText' => 'string',
    'OwnStatus' => 'boolean',
    'HelpText' => 'string',
    'OwnHelp' => 'boolean',
    'CalculateOnExit' => 'boolean',
    'EntryMacro' => 'string',
    'ExitMacro' => 'string',
    'NodeId' => 'string',
    'link' => 'Link'
};

my $attribute_map = {
    'Name' => 'Name',
    'Enabled' => 'Enabled',
    'StatusText' => 'StatusText',
    'OwnStatus' => 'OwnStatus',
    'HelpText' => 'HelpText',
    'OwnHelp' => 'OwnHelp',
    'CalculateOnExit' => 'CalculateOnExit',
    'EntryMacro' => 'EntryMacro',
    'ExitMacro' => 'ExitMacro',
    'NodeId' => 'NodeId',
    'link' => 'link'
};

# new object
sub new { 
    my ($class, %args) = @_; 
    my $self = { 
        #
        'Name' => $args{'Name'}, 

lib/AsposeWordsCloud/Object/FormField.pm  view on Meta::CPAN

        'StatusText' => $args{'StatusText'}, 
        #
        'OwnStatus' => $args{'OwnStatus'}, 
        #
        'HelpText' => $args{'HelpText'}, 
        #
        'OwnHelp' => $args{'OwnHelp'}, 
        #
        'CalculateOnExit' => $args{'CalculateOnExit'}, 
        #
        'EntryMacro' => $args{'EntryMacro'}, 
        #
        'ExitMacro' => $args{'ExitMacro'}, 
        #
        'NodeId' => $args{'NodeId'}, 
        #
        'link' => $args{'link'}
    }; 

    return bless $self, $class; 
}  

# get swagger type of the attribute

lib/AsposeWordsCloud/WordsApi.pm  view on Meta::CPAN

	if($AsposeWordsCloud::Configuration::debug){
		print "\nResponse Content: ".$response->content;
	}    
	
	my $_response_object = $self->{api_client}->pre_deserialize($response->content, 'DocumentResponse', $response->header('content-type'));
    return $_response_object;
    
}
#
# DeleteDocumentMacros
#
# 
# 
# @param String $name  (required)
# @param String $storage  (optional)
# @param String $folder  (optional)
# @return SaaSposeResponse
#
sub DeleteDocumentMacros {
    my ($self, %args) = @_;

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

    # parse inputs
    my $_resource_path = '/words/{name}/macros/?appSid={appSid}&storage={storage}&folder={folder}';
    
	$_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;

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

	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	my $watermarkText = AsposeWordsCloud::Object::WatermarkText->new('Text' => 'Welcome Aspose', 'RotationAngle' => '45');
	$response = $wordsApi->PostInsertWatermarkText(name=> $name, body=>$watermarkText);
 	isa_ok($response, 'AsposeWordsCloud::Object::DocumentResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testDeleteDocumentMacros' => sub {
	my $name = 'SampleWordDocument.docx';
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	$response = $wordsApi->DeleteDocumentMacros(name=> $name);
 	isa_ok($response, 'AsposeWordsCloud::Object::SaaSposeResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testGetDocumentFieldNames' => sub {
	my $name = 'SampleWordDocument.docx';
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	

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

	is($response->{'Status'}, "OK");
	
	my $xmlBody = '<FormFieldTextInput>'
            . '<Name>MyName</Name>'
            . '<Enabled>true</Enabled>'
            . '<StatusText />'
            . '<OwnStatus>false</OwnStatus>'
            . '<HelpText />'
            . '<OwnHelp>false</OwnHelp>'
            . '<CalculateOnExit>true</CalculateOnExit>'
            . '<EntryMacro />'
            . '<ExitMacro />'
            . '<TextInputFormat>UPPERCASE</TextInputFormat>'
            . '<TextInputType>Regular</TextInputType>'
            . '<TextInputDefault>Farooq Sheikh</TextInputDefault>'
            . '</FormFieldTextInput>';
            															
	$response = $wordsApi->PostFormField(name=> $name, sectionIndex=>$sectionIndex, 
										paragraphIndex=>$paragraphIndex, formfieldIndex=>$formfieldIndex, body=>$xmlBody);
 	isa_ok($response, 'AsposeWordsCloud::Object::FormFieldResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

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

	is($response->{'Status'}, "OK");
	
	my $xmlBody = '<FormFieldTextInput>'
            . '<Name>MyName</Name>'
            . '<Enabled>true</Enabled>'
            . '<StatusText />'
            . '<OwnStatus>false</OwnStatus>'
            . '<HelpText />'
            . '<OwnHelp>false</OwnHelp>'
            . '<CalculateOnExit>true</CalculateOnExit>'
            . '<EntryMacro />'
            . '<ExitMacro />'
            . '<TextInputFormat>UPPERCASE</TextInputFormat>'
            . '<TextInputType>Regular</TextInputType>'
            . '<TextInputDefault>Farooq Sheikh</TextInputDefault>'
            . '</FormFieldTextInput>';
															
	$response = $wordsApi->PutFormField(name=> $name, sectionIndex=>$sectionIndex, 
										paragraphIndex=>$paragraphIndex, insertBeforeNode=>$insertBeforeNode, body=>$xmlBody);
 	isa_ok($response, 'AsposeWordsCloud::Object::FormFieldResponse'); 	
 	is($response->{'Status'}, "OK"); 
};