Business::AU::TFN - Validate TFN - Australian Tax File Name
use Business::AU::TFN;
print Business::AU::TFN::validate("123 456 782");
Details come from http://bioinf.wehi.edu.au/folders/fred/tfn.html
Currently these are package methods which must be called explicitly. Although I am considering making this better.
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).
Scott Penrose <scottp@dd.com.au>
the Business::AU::ACN manpage, the Business::AU::ABN manpage