File Coverage

blib/lib/Snapforce/API.pm

Criterion	Covered	Total	%
statement	12	14	85.7
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	17	19	89.4

package Snapforce::API;

use 5.018002;
use strict;
use warnings;
use Carp;
use XML::Parser;
use HTTP::Request::Common qw/GET POST/;
use LWP::UserAgent;

require Exporter;

our $VERSION = '0.02';
our $SNAPURL = 'https://crm2.snapforce.com/sf_receive_request.inc.php';

sub new {
	my ($class, $authuser, $authkey) = @_;
	croak "Authentication user and/or key are missing" unless $authkey;
	my $self = bless {
		authuser => $authuser,
		authkey => $authkey
	}, $class;
	return $self;
}

sub fetchRecords {
	my $self = shift;
	return runAPI($self, 'method' => "fetchRecords", @_);
}

sub runAPI {
	my ($self, %args) = @_;
	carp "No method specified for explicit call of runAPI.  Defaulting to fetchRecords" if not $args{'method'};
	my %params = (
		format		=> "xml",
		module		=> "Accounts",
		api_user	=> $self->{authuser},
		api_key		=> $self->{authkey},
		status		=> "Active",
		method 		=> "fetchRecords"
	);
	@params{keys %args} = values %args;
	my $ua = new LWP::UserAgent;
	my $resp = $ua->request(POST $SNAPURL, [%params]);
	return $resp->content;
}

sub parseXML {
	my ($self, $info) = @_;
	my %data = ();
	my @tree = ();
	my $spot = "";
	my $word = "";

	my $sthdl = sub {
		my ($prsr, $elem, %atts) = @_;
		my $obj = \%data;
		$obj = ${$obj}{$_} foreach (@tree);
		$spot = $elem.(%atts ? "-".$atts{(keys %atts)[0]} : "");
		push @tree, $spot;
		${$obj}{$spot} = {};
		$word = "";
	};
	my $edhdl = sub {
		my ($prsr, $elem) = @_;
		pop @tree;
		my $obj = \%data;
		$obj = ${$obj}{$_} foreach @tree;
		${$obj}{$spot} = $word;
		$spot = "";
	};
	my $chhdl = sub {
		$word .= $_[1];
	};

	my $parser = XML::Parser->new(Handlers => {
		Start 	=> \&$sthdl,
		End 	=> \&$edhdl,
		Char	=> \&$chhdl
	});

	$parser->parse($info);
	delete $data{""};
	delete $data{(keys %data)[0]}{''};
	return %data;
}
1;
__END__