view release on metacpan or  search on metacpan

lib/Bank/RMD.pm  view on Meta::CPAN

sub new {
  
  my ( $package, %params ) = @_;
  my $param;
  $param->{taxyear} = $params{taxyear} || '2005'; #unused 
  bless $param, $package;

}

sub calculate() {
  my ( $package, %params ) = @_;

  return undef unless 
    defined $params{ownerAge} ||
    defined $params{ownerBirthDay};

  return undef unless 
    $params{balance};

  if ( $params{ownerBirthday} ) {