view release on metacpan or  search on metacpan

lib/Finance/Bank/SentinelBenefits/Csv401kConverter/SideReverser.pm  view on Meta::CPAN

package Finance::Bank::SentinelBenefits::Csv401kConverter::SideReverser;
$Finance::Bank::SentinelBenefits::Csv401kConverter::SideReverser::VERSION = '1.3';
use Modern::Perl '2015';
use feature 'signatures';

=head1 NAME



Finance::Bank::SentinelBenefits::Csv401kConverter::SideReverser - Reveses sides on lines



=head1 VERSION

version 1.3

=head1 SYNOPSIS



my $reverser = Finance::Bank::SentinelBenefits::Csv401kConverter::SideReverser->new();



my $side = $reverser->flip('Buy');



#$side eq 'Sell'



This class represents one transaction, whether a contribution or
a company match, and tells you the security, the price, quantity,
total money, etc.  It doesn't have any smarts, but serves as an
immutable internal data structure.



=cut 

use Moose;

use Finance::Bank::SentinelBenefits::Csv401kConverter::Types;

=head1 METHODS

=head2 p->flip($side)

Turns buys into sells, dividends into shorts, etc

=cut

sub flip($self, $side){

#   $line->side() eq 'Buy' ? 'ShtSell' : 'Buy'

    return $side eq 'Buy' ? 'ShtSell' 
	: $side eq 'ReinvDiv' ? 'ShtSell'
	: 'Buy';
}