Business-SiteCatalyst

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/manifest.t
t/module_versions.t
t/perlcritic.t
t/pod.t
t/pod-coverage.t
t/Company/00-load.t
t/Company/10-get_token_count.t
t/Company/20-get_token_usage.t
t/Company/30-get_report_suites.t
t/Company/40-get_tracking_server.t
t/Company/50-get_endpoint.t
t/Company/60-get_queue.t
t/Company/70-cancel_queue_item.t
t/Company/80-get_version_access.t
t/Report/00-load.t
t/Report/20-queue.t
t/Report/30-is_ready.t
t/Report/40-retrieve.t
t/Report/50-cancel.t
t/Report/99-cleanup.t

lib/Business/SiteCatalyst/Company.pm  view on Meta::CPAN

	my $company = $site_catalyst->instantiate_company();
	
	my $token_data = $company->get_token_usage();
	
	my $tokens_left = $company->get_token_count();
	
	my $report_suites = $company->get_report_suites();
	
	my $tracking_server = $company->get_tracking_server();
	
	my $endpoint = $company->get_endpoint( company => $company );
	
	my $queue_list = $company->get_queue();
	
	my $success = $company->cancel_queue_item( queue_id => $queue_item_id );
	
	my $version_list = $company->get_version_access();
	
=head1 METHODS

=head2 new()

lib/Business/SiteCatalyst/Company.pm  view on Meta::CPAN

	
	if ( !defined($response) || !defined($response->{'tracking_server'}) )
	{
		croak "Fatal error. No response or missing tracking_server in response";
	}
	
	return $response->{'tracking_server'};
}


=head2 get_endpoint()

Retrieves the endpoint (API URL) for the specified company.
NOTE: You can specify any company, not just your own.

	my $endpoint = $company->get_endpoint( company => $company );

Parameters:

=over 4

=item * company

The company whose endpoint you want to retrieve.

=back

=cut

sub get_endpoint
{
	my ( $self, %args ) = @_;
	
	croak "Argument 'company' is required"
		if !defined( $args{'company'} ) || ( $args{'company'} eq '' );
	
	my $site_catalyst = $self->get_site_catalyst();
	
	my $response = $site_catalyst->send_request(
		method => 'Company.GetEndpoint',

t/Company/50-get_endpoint.t  view on Meta::CPAN

ok(
	defined( 
		my $company = $site_catalyst->instantiate_company()
	),
	'Instantiate a new Business::SiteCatalyst::Company.',
);

my $response;
ok(
	defined(
		$response = $company->get_endpoint( company => 'adobe' )
	),
	'Request SiteCatalyst API/server endpoint.',
);

ok(
	Data::Validate::Type::is_string( $response, allow_empty => 0 ),
	'Retrieve SiteCatalyst API/server endpoint.',
) || diag( explain( $response ) );