NAME

Medicare

SYNOPSIS

  use Business::Payroll::US::Medicare;
  my $Medicare = Business::Payroll::US::Medicare->new();
  if ($Medicare->error())
  {
    die $Medicare->errorMessage();
  }

DESCRIPTION

This module will calculate Medicare Taxes for the US based on internal tables when given a gross amount

Exported FUNCTIONS

scalar new()

        Creates a new instance of the object.

integer isValidArg( gross => $gross)

        gross - floating point > 0
        date -  YYYYMMDD
        YTD - Year to date amount paid for this type of tax (float)
  )

        This method will check an argument sent in for validity.  returns 0 for no, 1 for yes .
        NOTE:  Only send one argument at a time.  If you send all you will not know which one is invalid

integer calculate( gross - total amount of pay date - date to be paid on. affects tax rates format YYYYMMDD YTD, total year to date )

string lookupDate ("date") or (date =>)

        Returns the date closest to the given date that is less than or equal to it

string firstDate()

        This method will return the earliest date in the datatables.
        Combined with the lastDate method, you can find the date range of the data

string lastDate()

        This method will return the earliest date in the datatables.
        Combined with the firstDate method, you can find the date range of the data

(rate, cap) rateCap(date)

        Returns an array containing the rate and Cap at
        the given date for Social Security Taxes.
        Reutnrs 0 for cap if there isn't one.
        Returns undef on error.

NOTE

All data fields are accessible by specifying the object and pointing to the data member to be modified on the left-hand side of the assignment. Ex. $obj->variable($newValue); or $value = $obj->variable;

AUTHOR

JT Moree - www.pcxperience.org

SEE ALSO

perl