WebService-Eulerian-Analytics
view release on metacpan or search on metacpan
lib/WebService/Eulerian/Analytics.pm view on Meta::CPAN
=cut
sub call {
my ($self, $method, @a_p) = @_;
# reset fault methods
$self->_faultclear();
# build soap header with auth
my @a_header = (
SOAP::Header->name("apikey")->value($self->{_APIKEY} )->type('')
);
# send SOAP request to API host
my $soap = SOAP::Lite->proxy(
$self->_endpoint($self->{_HOST}, $self->{_VERSION}).'/'.$self->{_SERVICE},
timeout => $self->{_TIMEOUT}
);
my $result = $soap->call(
SOAP::Data->name($method)->uri($self->{_SERVICE}) => @a_header, @a_p);
other/website-getall.pl view on Meta::CPAN
use SOAP::Lite;
use Data::Dumper;
my $apikey = 'YOUR_API_KEY';
my $host = 'YOUR_API_HOST';
my $soap = SOAP::Lite->proxy( $host.'/ea/v1/Website' );
# header params for auth
my @a_hdr = (
SOAP::Header->name("apikey")->value( $apikey )->type('')
);
# additionnal params for method
my @a_p = ();
my $result = $soap->call(
SOAP::Data->name('getAll')->uri('Website') => @a_hdr, @a_p );
if ( $result->fault ) {
die $result->faultstring;
( run in 0.617 second using v1.01-cache-2.11-cpan-454fe037f31 )