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 )