Number/Phone/PT version 0.04
============================

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.