File Coverage

blib/lib/Finance/CampBX.pm

Criterion	Covered	Total	%
statement	12	48	25.0
branch	0	4	0.0
condition			n/a
subroutine	4	15	26.6
pod	11	11	100.0
total	27	78	34.6

package Finance::CampBX;
$Finance::CampBX::VERSION = '0.2';
use strict;
use warnings;
use LWP::UserAgent;
use JSON -support_by_pp;

sub ticker(){
	return sendrequest("http://campbx.com/api/xticker.php");
}

sub depth(){
	return sendrequest("http://campbx.com/api/xdepth.php");
}

sub balance(){
	my $self = shift;
	my ($userid, $password) = @_;
	return sendrequest('https://campbx.com/api/myfunds.php', {'user'=>$userid, 'pass'=>$password });
}

sub orders(){
	my $self = shift;
	my ($userid, $password) = @_;
	return sendrequest('https://campbx.com/api/myorders.php', {'user'=>$userid, 'pass'=>$password });
}

sub margins(){
	my $self = shift;
	my ($userid, $password) = @_;
	return sendrequest('https://campbx.com/api/mymargins.php', {'user'=>$userid, 'pass'=>$password });
}

sub getbtcaddress(){
	my $self = shift;
	my ($userid, $password) = @_;
	return sendrequest('https://campbx.com/api/getbtcaddr.php', {'user'=>$userid, 'pass'=>$password });
}

sub quicktrade(){
	my $self = shift;
	my ($userid, $password, $trademode, $quantity, $price) = @_;
	return sendrequest('https://campbx.com/api/tradeenter.php', { 'user'=>$userid, 'pass'=>$password, 'TradeMode'=>$trademode,  'Quantity'=> $quantity,  'Price'=>$price });
}

sub cancelorder(){
	my $self = shift;
	my ($userid, $password, $type, $orderid) = @_;
	return sendrequest('https://campbx.com/api/tradecancel.php', { 'user'=>$userid, 'pass'=>$password, 'Type'=>$type,  'OrderID'=>$orderid });
}

sub sendtobtc(){
	my $self = shift;
	my ($userid, $password, $btcaddress, $btcamount) = @_;
	return sendrequest('https://campbx.com/api/sendbtc.php', { 'user'=>$userid, 'pass'=>$password, 'BTCTo'=>$btcaddress,  'BTCAmt'=>$btcamount });
}


sub sendrequest(){
	my ( $url, $options ) = @_;
	my $response;
	my $browser = LWP::UserAgent->new( agent => "Perl-Finance-CampBX" );
	if ($options){
		$response = $browser->post( $url, $options );
	}else{
		$response = $browser->post( $url );
	}
	if ($response->is_success) {
		my $content = $response->content;
		my $json = new JSON;
		return $json->utf8->decode($content);
	} else {
		return 0;
	}
}

sub new {
	my $package = shift;
	return bless({}, $package);
}

1;
__END__