File Coverage

blib/lib/Finance/StockAccount/AccountTransaction.pm

Criterion	Covered	Total	%
statement	41	50	82.0
branch	10	14	71.4
condition	6	9	66.6
subroutine	11	12	91.6
pod	0	9	0.0
total	68	94	72.3

package Finance::StockAccount::AccountTransaction;

our $VERSION = '0.01';

use parent 'Finance::StockAccount::Transaction';

use strict;
use warnings;


sub new {
    my ($class, $init) = @_;
    my $self = $class->SUPER::new($init);
    $self->{accounted} = 0;
    return $self;
}

sub accounted {
    my ($self, $accounted) = @_;
    if ($accounted) {
        $self->{accounted} = $accounted;
        return 1;
    }
    else {
        return $self->{accounted};
    }
}

sub resetAccounted {
    my $self = shift;
    $self->{accounted} = 0;
    return 1;
}

sub available {
    my $self = shift;
    my $available = $self->{quantity} - $self->{accounted};
    return ($available > 0 ? $available : 0);
}

sub accountShares {
    my ($self, $shares) = @_;
    unless ($shares and $shares > 0) {
        warn "AccountShares of $shares bad input.\n";
        return 0;
    }
    my $available = $self->available();
    if (0 == $available) {
        warn "Requested accountShares but no shares available.\n";
        return 0;
    }
    elsif ($shares > $available) {
        $self->{accounted} = $self->{quantity};
        return $available;
    }
    else {
        $self->{accounted} += $shares;
        return $shares;
    }
}

sub possiblePurchase {
    my ($self, $actionString) = @_;
    if (    (($actionString eq 'sell' and $self->buy()) or
             ($actionString eq 'cover' and $self->short()))
            and $self->available()) {
        return 1;
    }
    else {
        return 0;
    }
}

sub hashKey {
    my $self = shift;
    my $stock = $self->stock();
    return $stock->hashKey();
}

sub lineFormatValues {
    my ($self, $available) = @_;
    my $lineFormatValues = $self->SUPER::lineFormatValues();
    $lineFormatValues->[3] = $available ? $self->available : $self->{accounted};
    return $lineFormatValues;
}

sub lineFormatString {
    my ($self, $available) = @_;
    return sprintf(Finance::StockAccount::Transaction->lineFormatPattern(), @{$self->lineFormatValues($available)});
}


1;

__END__