From 4808502fa8eed0a44e06b119830aee18add6e261 Mon Sep 17 00:00:00 2001 From: Petr Baudis Date: Tue, 19 Jul 2011 17:55:54 +0200 Subject: [PATCH] autotrade::MarketData: Also list BTC balance --- autotrade/MarketData.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/autotrade/MarketData.pm b/autotrade/MarketData.pm index e0525f6..3396418 100644 --- a/autotrade/MarketData.pm +++ b/autotrade/MarketData.pm @@ -20,7 +20,7 @@ has 'orders' => (isa => 'ArrayRef[autotrade::MarketData::Order]', is => 'ro', la sub tradeable_balance { my $self = shift; my $balance = $self->bal_rwm(); - printf "\t\tBasic balance %s\n", curr_str($balance); + printf "\t\tBasic balance %s (and %s BTC)\n", curr_str($balance), curr_str($self->bal_btc()); foreach my $o (grep { $_->otype() eq 'buy' } @{$self->orders()}) { printf "\t\t- Buy order %s @ %s\n", curr_str($o->amount()), curr_str($o->rate()); $balance -= curr_conv($o->amount(), $o->rate()); -- 2.11.4.GIT