support whitespaces for NumericCode

tobyink · Mar 28, 2015 · f5cbd7f · f5cbd7f
1 parent 4c980f8
commit f5cbd7f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git 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
@@ -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;