my
$cc
= new Finance::Bank::CreateCard;
$cc
->login(
username
=>
"$username"
,
password
=>
"$password"
) or
die
"Username or password incorrect."
;
my
$account
=
$cc
->account_overview();
print
"Current Balance is: "
.
$account
->currentbalance() .
"\n"
;
print
"Available Credit: "
.
$account
->availablecredit() .
"\n"
;
print
"Minimum Payment: "
.
$account
->minimumpayment() .
"\n"
;
print
"Cashback Rate: "
.
$account
->cashbackrate() .
"\n"
;
print
"Last Statement Date: "
.
$account
->laststatementdate().
"\n"
;
print
"Cash Back To Date: "
.
$account
->cashbacktodate() .
"\n"
;
print
"Card Number: "
.
$account
->cardnumber() .
"\n"
;
print
"Name: "
.
$account
->name() .
"\n"
;
print
"Payment Date Due: "
.
$account
->paymentduedate() .
"\n"
;
print
"Credit Limit: "
.
$account
->creditlimit() .
"\n"
;
my
$settings
=
$cc
->card_settings();
print
"Next Cashback Reward :"
.
$settings
->nextdateofcashbackreward() .
"\n"
;
print
"Cashback Reward Rate :"
.
$settings
->cashbackrewardonpurchases() .
"\n"
;
print
"Number of Free Changes :"
.
$settings
->numberoffreechangesavailable() .
"\n"
;
print
"Statement Option :"
.
$settings
->statementoption() .
"\n"
;
print
"APR Purchases Only :"
.
$settings
->aprpurchasesonly() .
"\n"
;
print
"Annual Fee :"
.
$settings
->annualfee() .
"\n"
;
print
"Servicing Option :"
.
$settings
->servicingoption () .
"\n"
;
print
"Annual Interest Rate :"
.
$settings
->annualinterestrate() .
"\n"
;
my
$transactions
=
$cc
->recent_transactions();
print
"Last statement Balance: "
.
$transactions
->laststatementbalance() .
"\n"
;
print
"Total : "
.
$transactions
->total() .
"\n"
;
for
my
$transaction
( @{
$transactions
->transactions()} ) {
printf
(
"%10s %40s %10s %10s\n"
,
$transaction
->{date},
$transaction
->{description},
$transaction
->{payin},
$transaction
->{payout}
);
}