Sha256: 7527c3b1bbe1ff2858331abcdf161afd5949afe600857476f411da7fc4b6e825

Contents?: true

Size: 252 Bytes

Versions: 48

Compression:

Stored size: 252 Bytes

Contents

package PhoneNumber 4;
use strict;
use warnings;
use Exporter 'import';
our @EXPORT_OK = qw(clean_number);

sub clean_number {
  my ($number) = @_;
  $number =~ s/\D//g;
  return $number =~ /^ 1? ( (?: [2-9] \d{2} ){2} \d{4} ) $/x ? $1 : undef;
}


1;

Version data entries

48 entries across 48 versions & 1 rubygems

Version Path
trackler-2.2.1.139 tracks/perl5/exercises/phone-number/.meta/solutions/PhoneNumber.pm
trackler-2.2.1.138 tracks/perl5/exercises/phone-number/.meta/solutions/PhoneNumber.pm
trackler-2.2.1.137 tracks/perl5/exercises/phone-number/.meta/solutions/PhoneNumber.pm
trackler-2.2.1.136 tracks/perl5/exercises/phone-number/.meta/solutions/PhoneNumber.pm
trackler-2.2.1.135 tracks/perl5/exercises/phone-number/.meta/solutions/PhoneNumber.pm
trackler-2.2.1.134 tracks/perl5/exercises/phone-number/.meta/solutions/PhoneNumber.pm
trackler-2.2.1.133 tracks/perl5/exercises/phone-number/.meta/solutions/PhoneNumber.pm
trackler-2.2.1.132 tracks/perl5/exercises/phone-number/.meta/solutions/PhoneNumber.pm