Permalink
Browse files

Add examples/format.pl

  • Loading branch information...
1 parent 696cf40 commit bd00247c7b4755600d0c75fda75efb359f83b684 @dolmen committed Oct 21, 2011
Showing with 10 additions and 0 deletions.
  1. +3 −0 Changes
  2. +7 −0 examples/format.pl
View
@@ -1,5 +1,8 @@
Revision history for Number::Phone::FR.
+0.05
+ Add examples/format.pl
+
0.0511217 2011-09-03 DOLMEN (Olivier Mengué)
Use \A and \z instead of ^ and $ in regexps.
ARCEP data: 2011-08-05.
View
@@ -0,0 +1,7 @@
+use strict;
+use warnings;
+
+use Number::Phone::FR 'Full';
+
+my $num = Number::Phone::FR->new($ARGV[0]) or exit 1;
+print $num->format, "\n";

0 comments on commit bd00247

Please sign in to comment.