From f5cbd7f52b52c5af04638b7ae4bb3ef8d6009f44 Mon Sep 17 00:00:00 2001
From: Denis Ibaev <dionys@gmail.com>
Date: Sun, 29 Mar 2015 03:10:15 +0400
Subject: [PATCH] support whitespaces for NumericCode

---
 lib/Types/Common/String.pm             | 2 +-
 t/20-unit/Types-Common-String/coerce.t | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Types/Common/String.pm b/lib/Types/Common/String.pm
index ce9ffad75..e2acd0a79 100644
--- a/lib/Types/Common/String.pm
+++ b/lib/Types/Common/String.pm
@@ -60,7 +60,7 @@ $meta->add_type(
 );
 
 NumericCode->coercion->add_type_coercions(
-	NonEmptySimpleStr, q[ do { (my $code = $_) =~ s/[[:punct:]]//g; $code } ],
+	NonEmptySimpleStr, q[ do { (my $code = $_) =~ s/[[:punct:][:space:]]//g; $code } ],
 );
 
 $meta->add_type(
diff --git a/t/20-unit/Types-Common-String/coerce.t b/t/20-unit/Types-Common-String/coerce.t
index 346003ed9..643f0e0a2 100644
--- a/t/20-unit/Types-Common-String/coerce.t
+++ b/t/20-unit/Types-Common-String/coerce.t
@@ -54,5 +54,6 @@ is(to_UpperCaseStr('foo'), 'FOO', 'uppercase str' );
 is(to_LowerCaseStr('BAR'), 'bar', 'lowercase str' );
 
 is(to_NumericCode('4111-1111-1111-1111'), '4111111111111111', 'numeric code' );
+is(to_NumericCode('+1 (800) 555-01-23'), '18005550123', 'numeric code' );
 
 done_testing;