File Coverage

blib/lib/UkrMoney/API.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package UkrMoney::API;

use strict;
use warnings;
use LWP::Simple;
use XML::Simple;

our $VERSION = '1.01';


sub new {
	my $class = shift;
	$class = ref ($class) || $class;
	my $self = {};
	return bless $self, $class;
};

sub login{
	my $self   = shift;
	my $param  = shift;

	my $xml = XMLin(get("https://api.ukrmoney.com/login/?pc_pwd=".$param->{'password'}."&pc_email=".$param->{'login'}), KeepRoot => 1);
	$self->{'param'}->{'session'} = $xml->{'login'}->{'session'};
	return $xml->{'login'}->{'session'};
}


sub trans{
	my $self   = shift;
	my $param  = shift;
	$param->{'session'} = $self->{'param'}->{'session'} unless $param->{'session'};

	my $xml = XMLin(get("https://api.ukrmoney.com/newtrans/?".($param->{'payee_purse'} ? "payee_purse=".$param->{'payee_purse'}."&" : "")."amnt=".$param->{'amount'}."&word=".$param->{'description'}."&pcsl_session_id=".$param->{'session'}."&benef_email=".$param->{'benef_email'}.($param->{'benef_purse'} ? "&benef_purse=".$param->{'benef_purse'} : "")."&mode=".$param->{'mode'}), KeepRoot => 1);
	return $xml->{'status'};
}

sub trans_info{
	my $self   = shift;
	my $param  = shift;
	$param->{'session'} = $self->{'param'}->{'session'} unless $param->{'session'};

	my $xml = XMLin(get("https://api.ukrmoney.com/view_trans_info/?trans_id=".$param->{'trans_id'}."&pcsl_session_id=".$param->{'session'}), KeepRoot => 1);
	return $xml;
}

sub trans_list{
	my $self   = shift;
	my $param  = shift;
	$param->{'session'} = $self->{'param'}->{'session'} unless $param->{'session'};

	my $xml = XMLin(get("https://api.ukrmoney.com/trans_list/?pcp_purse=".$param->{'purse'}."&offset=".$param->{'offset'}."&limit=".$param->{'limit'}."&pcsl_session_id=".$param->{'session'}), KeepRoot => 1);
	return $xml;
}

sub my_info{
	my $self   = shift;
	my $param  = shift;
	$param->{'session'} = $self->{'param'}->{'session'} unless $param->{'session'};

	my $xml = XMLin(get("https://api.ukrmoney.com/account/?pcsl_session_id=".$param->{'session'}), KeepRoot => 1);
	return $xml;
}

sub check_user{
	my $self   = shift;
	my $param  = shift;
	$param->{'session'} = $self->{'param'}->{'session'} unless $param->{'session'};

	my $result = $self->trans({'payee_purse'     => $param->{'payee_purse'} ? $param->{'payee_purse'} : "",
				   'amount'          => '0.01',
				   'description'     => 'check for user',
				   'benef_email'     => $param->{'email'},
				   'pcsl_session_id' => $param->{'session'},
				   'mode'            => 'test'});
	return ($result->{'status'} eq 'ok') ? 1 : 0;
}


1;
__END__