#! /usr/bin/perl

use strict;
use warnings;

use WebService::Dwolla;
use Data::Dumper;

my $api = WebService::Dwolla->new(); 

# Set key, secret, and OAuth token from config file.
$api->set_api_config_from_file('/usr/local/etc/dwolla_api.conf');

# Example 1: Get all funding sources

my $funding_sources = $api->funding_sources();
if (!$funding_sources) {
    print Dumper($api->get_errors());
} else {
    print Dumper($funding_sources);
}

# Example 2: Get by funding source by id.

my $source_id = 'a4946ae2d2b7f1f880790f31a36887f5';

my $fs = $api->funding_source($source_id);
if (!$fs) {
    print Dumper($api->get_errors());
} else {
    print Dumper($fs);
}

# Example 3: Add a funding source.

my $acctnum = '123456';
my $trnnum  = '123456789';
my $type    = 'Checking';
my $name    = 'My Checking';

my $add = $api->add_funding_source($acctnum,$trnnum,$type,$name);
if (!$add) {
    print Dumper($api->get_errors());
} else {
    print Dumper($add);
}

# Example 4: Verify a funding source.

my $d1 = '0.01';
my $d2 = '0.02';
my $id = 'a4946ae2d2b7f1f880790f31a36887f5';

my $verify = $api->verify_funding_source($id,$d1,$d2);
if (!$verify) {
    print Dumper($api->get_errors());
} else {
    print Dumper($verify);
}