AsposePdfCloud-PdfApi

 view release on metacpan or  search on metacpan

lib/AsposePdfCloud/PdfApi.pm  view on Meta::CPAN

		print "\nResponse Content: ".$response->content;
	}    
	
	my $_response_object = $self->{api_client}->pre_deserialize($response->content, 'AnnotationResponse', $response->header('content-type'));
    return $_response_object;
    
}
#
# GetFragments
#
# Read page fragments.
# 
# @param String $name  (required)
# @param String $pageNumber  (required)
# @param String $withEmpty  (optional)
# @param String $storage  (optional)
# @param String $folder  (optional)
# @return TextItemsResponse
#
sub GetFragments {
    my ($self, %args) = @_;

lib/AsposePdfCloud/PdfApi.pm  view on Meta::CPAN

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

    # parse inputs
    my $_resource_path = '/pdf/{name}/pages/{pageNumber}/fragments/?appSid={appSid}&withEmpty={withEmpty}&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;
    
    my $_method = 'GET';
    my $query_params = {};
    my $header_params = {};
    my $form_params = {};

lib/AsposePdfCloud/PdfApi.pm  view on Meta::CPAN

		print "\nResponse Content: ".$response->content;
	}    
	
	my $_response_object = $self->{api_client}->pre_deserialize($response->content, 'TextItemsResponse', $response->header('content-type'));
    return $_response_object;
    
}
#
# GetFragment
#
# Read page fragment.
# 
# @param String $name  (required)
# @param String $pageNumber  (required)
# @param String $fragmentNumber  (required)
# @param String $withEmpty  (optional)
# @param String $storage  (optional)
# @param String $folder  (optional)
# @return TextItemsResponse
#
sub GetFragment {
    my ($self, %args) = @_;

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

    # parse inputs
    my $_resource_path = '/pdf/{name}/pages/{pageNumber}/fragments/{fragmentNumber}/?appSid={appSid}&withEmpty={withEmpty}&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;
    
    my $_method = 'GET';
    my $query_params = {};
    my $header_params = {};
    my $form_params = {};

lib/AsposePdfCloud/PdfApi.pm  view on Meta::CPAN

    if ( exists $args{'name'}) {        		
		$_resource_path =~ s/\Q{name}\E/$args{'name'}/g;
    }else{
		$_resource_path    =~ s/[?&]name.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'pageNumber'}) {        		
		$_resource_path =~ s/\Q{pageNumber}\E/$args{'pageNumber'}/g;
    }else{
		$_resource_path    =~ s/[?&]pageNumber.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'fragmentNumber'}) {        		
		$_resource_path =~ s/\Q{fragmentNumber}\E/$args{'fragmentNumber'}/g;
    }else{
		$_resource_path    =~ s/[?&]fragmentNumber.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'withEmpty'}) {        		
		$_resource_path =~ s/\Q{withEmpty}\E/$args{'withEmpty'}/g;
    }else{
		$_resource_path    =~ s/[?&]withEmpty.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'storage'}) {        		
		$_resource_path =~ s/\Q{storage}\E/$args{'storage'}/g;
    }else{
		$_resource_path    =~ s/[?&]storage.*?(?=&|\?|$)//g;

lib/AsposePdfCloud/PdfApi.pm  view on Meta::CPAN

		print "\nResponse Content: ".$response->content;
	}    
	
	my $_response_object = $self->{api_client}->pre_deserialize($response->content, 'TextItemsResponse', $response->header('content-type'));
    return $_response_object;
    
}
#
# GetSegments
#
# Read fragment segments.
# 
# @param String $name  (required)
# @param String $pageNumber  (required)
# @param String $fragmentNumber  (required)
# @param String $withEmpty  (optional)
# @param String $storage  (optional)
# @param String $folder  (optional)
# @return TextItemsResponse
#
sub GetSegments {
    my ($self, %args) = @_;

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

    # parse inputs
    my $_resource_path = '/pdf/{name}/pages/{pageNumber}/fragments/{fragmentNumber}/segments/?appSid={appSid}&withEmpty={withEmpty}&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;
    
    my $_method = 'GET';
    my $query_params = {};
    my $header_params = {};
    my $form_params = {};

lib/AsposePdfCloud/PdfApi.pm  view on Meta::CPAN

    if ( exists $args{'name'}) {        		
		$_resource_path =~ s/\Q{name}\E/$args{'name'}/g;
    }else{
		$_resource_path    =~ s/[?&]name.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'pageNumber'}) {        		
		$_resource_path =~ s/\Q{pageNumber}\E/$args{'pageNumber'}/g;
    }else{
		$_resource_path    =~ s/[?&]pageNumber.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'fragmentNumber'}) {        		
		$_resource_path =~ s/\Q{fragmentNumber}\E/$args{'fragmentNumber'}/g;
    }else{
		$_resource_path    =~ s/[?&]fragmentNumber.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'withEmpty'}) {        		
		$_resource_path =~ s/\Q{withEmpty}\E/$args{'withEmpty'}/g;
    }else{
		$_resource_path    =~ s/[?&]withEmpty.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'storage'}) {        		
		$_resource_path =~ s/\Q{storage}\E/$args{'storage'}/g;
    }else{
		$_resource_path    =~ s/[?&]storage.*?(?=&|\?|$)//g;

lib/AsposePdfCloud/PdfApi.pm  view on Meta::CPAN

    return $_response_object;
    
}
#
# GetSegment
#
# Read segment.
# 
# @param String $name  (required)
# @param String $pageNumber  (required)
# @param String $fragmentNumber  (required)
# @param String $segmentNumber  (required)
# @param String $storage  (optional)
# @param String $folder  (optional)
# @return TextItemResponse
#
sub GetSegment {
    my ($self, %args) = @_;

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

    # parse inputs
    my $_resource_path = '/pdf/{name}/pages/{pageNumber}/fragments/{fragmentNumber}/segments/{segmentNumber}/?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;
    
    my $_method = 'GET';
    my $query_params = {};
    my $header_params = {};
    my $form_params = {};

lib/AsposePdfCloud/PdfApi.pm  view on Meta::CPAN

    if ( exists $args{'name'}) {        		
		$_resource_path =~ s/\Q{name}\E/$args{'name'}/g;
    }else{
		$_resource_path    =~ s/[?&]name.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'pageNumber'}) {        		
		$_resource_path =~ s/\Q{pageNumber}\E/$args{'pageNumber'}/g;
    }else{
		$_resource_path    =~ s/[?&]pageNumber.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'fragmentNumber'}) {        		
		$_resource_path =~ s/\Q{fragmentNumber}\E/$args{'fragmentNumber'}/g;
    }else{
		$_resource_path    =~ s/[?&]fragmentNumber.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'segmentNumber'}) {        		
		$_resource_path =~ s/\Q{segmentNumber}\E/$args{'segmentNumber'}/g;
    }else{
		$_resource_path    =~ s/[?&]segmentNumber.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'storage'}) {        		
		$_resource_path =~ s/\Q{storage}\E/$args{'storage'}/g;
    }else{
		$_resource_path    =~ s/[?&]storage.*?(?=&|\?|$)//g;

lib/AsposePdfCloud/PdfApi.pm  view on Meta::CPAN

    return $_response_object;
    
}
#
# GetSegmentTextFormat
#
# Read segment text format.
# 
# @param String $name  (required)
# @param String $pageNumber  (required)
# @param String $fragmentNumber  (required)
# @param String $segmentNumber  (required)
# @param String $storage  (optional)
# @param String $folder  (optional)
# @return TextFormatResponse
#
sub GetSegmentTextFormat {
    my ($self, %args) = @_;

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

    # parse inputs
    my $_resource_path = '/pdf/{name}/pages/{pageNumber}/fragments/{fragmentNumber}/segments/{segmentNumber}/textFormat/?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;
    
    my $_method = 'GET';
    my $query_params = {};
    my $header_params = {};
    my $form_params = {};

lib/AsposePdfCloud/PdfApi.pm  view on Meta::CPAN

    if ( exists $args{'name'}) {        		
		$_resource_path =~ s/\Q{name}\E/$args{'name'}/g;
    }else{
		$_resource_path    =~ s/[?&]name.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'pageNumber'}) {        		
		$_resource_path =~ s/\Q{pageNumber}\E/$args{'pageNumber'}/g;
    }else{
		$_resource_path    =~ s/[?&]pageNumber.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'fragmentNumber'}) {        		
		$_resource_path =~ s/\Q{fragmentNumber}\E/$args{'fragmentNumber'}/g;
    }else{
		$_resource_path    =~ s/[?&]fragmentNumber.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'segmentNumber'}) {        		
		$_resource_path =~ s/\Q{segmentNumber}\E/$args{'segmentNumber'}/g;
    }else{
		$_resource_path    =~ s/[?&]segmentNumber.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'storage'}) {        		
		$_resource_path =~ s/\Q{storage}\E/$args{'storage'}/g;
    }else{
		$_resource_path    =~ s/[?&]storage.*?(?=&|\?|$)//g;

lib/AsposePdfCloud/PdfApi.pm  view on Meta::CPAN

		print "\nResponse Content: ".$response->content;
	}    
	
	my $_response_object = $self->{api_client}->pre_deserialize($response->content, 'TextFormatResponse', $response->header('content-type'));
    return $_response_object;
    
}
#
# GetFragmentTextFormat
#
# Read page fragment text format.
# 
# @param String $name  (required)
# @param String $pageNumber  (required)
# @param String $fragmentNumber  (required)
# @param String $storage  (optional)
# @param String $folder  (optional)
# @return TextFormatResponse
#
sub GetFragmentTextFormat {
    my ($self, %args) = @_;

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

    # parse inputs
    my $_resource_path = '/pdf/{name}/pages/{pageNumber}/fragments/{fragmentNumber}/textFormat/?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;
    
    my $_method = 'GET';
    my $query_params = {};
    my $header_params = {};
    my $form_params = {};

lib/AsposePdfCloud/PdfApi.pm  view on Meta::CPAN

    if ( exists $args{'name'}) {        		
		$_resource_path =~ s/\Q{name}\E/$args{'name'}/g;
    }else{
		$_resource_path    =~ s/[?&]name.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'pageNumber'}) {        		
		$_resource_path =~ s/\Q{pageNumber}\E/$args{'pageNumber'}/g;
    }else{
		$_resource_path    =~ s/[?&]pageNumber.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'fragmentNumber'}) {        		
		$_resource_path =~ s/\Q{fragmentNumber}\E/$args{'fragmentNumber'}/g;
    }else{
		$_resource_path    =~ s/[?&]fragmentNumber.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'storage'}) {        		
		$_resource_path =~ s/\Q{storage}\E/$args{'storage'}/g;
    }else{
		$_resource_path    =~ s/[?&]storage.*?(?=&|\?|$)//g;
	}# query params
    if ( exists $args{'folder'}) {        		
		$_resource_path =~ s/\Q{folder}\E/$args{'folder'}/g;
    }else{
		$_resource_path    =~ s/[?&]folder.*?(?=&|\?|$)//g;

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

	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetFragments(name=>$name, pageNumber=>$pageNumber);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposePdfCloud::Object::TextItemsResponse');
};

subtest 'testGetFragment' => sub {
	my $name =  'sample-input.pdf';
	my $pageNumber =  1;
	my $fragmentNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetFragment(name=>$name, pageNumber=>$pageNumber, fragmentNumber=>$fragmentNumber);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposePdfCloud::Object::TextItemsResponse');
};


subtest 'testGetSegments' => sub {
	my $name =  'Sample-Annotation.pdf';
	my $pageNumber =  1;
	my $fragmentNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetSegments(name=>$name, pageNumber=>$pageNumber, fragmentNumber=>$fragmentNumber);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposePdfCloud::Object::TextItemsResponse');
};


subtest 'testGetSegment' => sub {
	my $name = 'sample-input.pdf';
	my $pageNumber =  1;
	my $fragmentNumber =  1;
	my $segmentNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetSegment(name=>$name, pageNumber=>$pageNumber, fragmentNumber=>$fragmentNumber, segmentNumber=>$segmentNumber);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposePdfCloud::Object::TextItemResponse');
};


subtest 'testGetSegmentTextFormat' => sub {
	my $name =  'sample-input.pdf';
	my $pageNumber =  1;
	my $fragmentNumber =  1;
	my $segmentNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetSegmentTextFormat(name=>$name, pageNumber=>$pageNumber, fragmentNumber=>$fragmentNumber, segmentNumber=>$segmentNumber);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposePdfCloud::Object::TextFormatResponse');
};

subtest 'testGetFragmentTextFormat' => sub {
	my $name =  'sample-input.pdf';
	my $pageNumber =  1;
	my $fragmentNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetFragmentTextFormat(name=>$name, pageNumber=>$pageNumber, fragmentNumber=>$fragmentNumber);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposePdfCloud::Object::TextFormatResponse');
};

subtest 'testGetImages' => sub {
	my $name =  'SampleImage.pdf';
	my $pageNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetImages(name=>$name, pageNumber=>$pageNumber);