Validate Portuguese phone numbers
use Number::Phone::PT;
$number = 258374162;
print "$number is valid" if is_valid($number);
print "$number belongs to a home" if is_residential($number);
print "$number is a celular phone" if is_mobile($number);
print "$number belongs to someone" if is_personal($number); # same thing as ( is_residential($number) or is_mobile($number) )
print "$number is from " . area_of($number) if is_residential($number);
INSTALLATION
To install this module type the following:
perl Makefile.PL
make
make test
make install
DEPENDENCIES
No dependencies
SEE ALSO
The POD documentation in PT.pm
COPYRIGHT AND LICENCE
Copyright (C) 2004 Jose Alves de Castro
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.