Sha256: 9162e519414da441ce35ace8cf545b33302524cbbed06a3cb0ebd40583dcc1ea
Contents?: true
Size: 642 Bytes
Versions: 214
Compression:
Stored size: 642 Bytes
Contents
package Example; use strict; use warnings; sub new { my ($class, $number) = @_; my $self = bless {} => $class; $self->{number} = $self->_get_digits($number); return $self; } sub _get_digits { my ($self, $number) = @_; my $digits = $number; $digits =~ s/\D//g; return $digits if length $digits == 10; return substr $digits, 1, 10 if $digits =~ m/1\d{10}/; return "0" x 10; } sub number { $_[0]->{number} } sub area_code { substr $_[0]->{number}, 0, 3 } sub pretty { my $pretty = $_[0]->{number}; $pretty =~ s/(\d\d\d)(\d\d\d)(\d{4})/\($1\) $2\-$3/; return $pretty; } __PACKAGE__;
Version data entries
214 entries across 214 versions & 1 rubygems