diff options
| -rw-r--r-- | raku/phone-number/Phone.rakumod | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/raku/phone-number/Phone.rakumod b/raku/phone-number/Phone.rakumod index ef214b1..66a9e24 100644 --- a/raku/phone-number/Phone.rakumod +++ b/raku/phone-number/Phone.rakumod @@ -18,19 +18,12 @@ sub clean-number(Str $number --> Str) is export { # <punct> matches "("; die @errors[4] if $number.contains: /<[!:]>/; - given $number.comb.grep(/\d/)>>.Int { + my Int @num = $number.comb.grep(/\d/)>>.Int; + given @num { when .elems == 11 { die @errors[0] if .[0] !== 1; - - # Area code. - die @errors[5] if .[1] == 0; - die @errors[6] if .[1] == 1; - - # Exchange code. - die @errors[7] if .[4] == 0; - die @errors[8] if .[4] == 1; - - return .skip.join; + @num .= skip; + proceed; } when .elems == 10 { # Area code. @@ -45,6 +38,5 @@ sub clean-number(Str $number --> Str) is export { } when .elems > 11 { die @errors[1] } when .elems < 10 { die @errors[2] } - default { return .join } } } |