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 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
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>
