NAME Phone::Number - Module to hold a phone number from a UK-centric point of view. head1 VERSION Version 1.0.0 SYNOPSYS use Phone::Number; my $num = new Phone::Number('02002221666'); print $num->formatted; # 020 0222 1666 print $num->packed; # 02002221666 print $num->number; # +442002221666 print $num->plain; # 442002221666 print $num->uk ? "yes" : "no"; # yes EXPORT Nothing is exported ROUTINES new Creates a new, immutable object using any unambiguous phone number format. my $num = new Phone::Number('02002221666'); my $num = new Phone::Number('2002221666'); my $num = new Phone::Number('442002221666'); my $num = new Phone::Number('+442002221666'); my $new = new Phone::Number($num); formatted Returns the number formatted with leading 0 and spaces. This can be used for displaying the number in "standard" format. packed Returns the number with a leading 0 but no spaces. This can be useful for databases but see plain below. number Returns the number in international format starting with +. plain Returns the number in international format without the +. This is usually the best way to store the number onto a database. uk Returns a boolean: true if it is a valid UK number AUTHOR Cliff Stanford, `' BUGS Please report any bugs or feature requests to `bug-phone-number at rt.cpan.org', or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Phone-Number. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. SUPPORT You can find documentation for this module with the perldoc command. perldoc Phone::Number LICENSE AND COPYRIGHT Copyright 2014 Cliff Stanford. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.