NAME
Business::AU::TFN - Validate TFN - Australian Tax File Name
SYNOPSIS
use Business::AU::TFN;
print Business::AU::TFN::validate("123 456 782");DESCRIPTION
NOTES
Details come from http://bioinf.wehi.edu.au/folders/fred/tfn.html
METHODS
Currently these are package methods which must be called explicitly. Although I am considering making this better.
METHODS
validate($tfn)
Validate a tax file number. Return value is one of
'valid' - yep, completely valid
'invalid length' - Must be 9 characteres (spaces accepted)
'invalid sum' - does not match
pretty($tfn)
This prints out a valid pretty print of an TFN The standards says that it must be showed in groups of three (nnn nnn nnn).
AUTHOR
Scott Penrose <scottp@dd.com.au>