The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Net::Amazon::MechanicalTurk::Command::GetAvailableBalance;
use strict;
use warnings;

our $VERSION = '1.01_01';

=head1 NAME

Net::Amazon::MechanicalTurk::Command::GetAvailableBalance - Get your accounts available balance.

A convenience method for getting your accounts available balance.

=head1 SYNOPSIS

    printf "Available Balance %s\n", $mturk->getAvailableBalance;

=cut 


sub getAvailableBalance {
    my $mturk = shift;
    return $mturk->GetAccountBalance->{AvailableBalance}[0]{Amount}[0];
}

return 1;