The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

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>

SEE ALSO

Business::AU::ACN, Business::AU::ABN