File Coverage

blib/lib/Number/Phone/Formatter/Raw.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod	1	1	100.0
total	15	15	100.0

package Number::Phone::Formatter::Raw;

use strict;
use warnings;

sub format {
    my $class = shift;
    my $number = shift;
    $number =~ s/.*?\s//;
    $number =~ s/\D//g;
    return $number
}

1;

=head1 NAME

Number::Phone::Formatter::Raw - simple formatter for E.123-formatted phone numbers

=head1 DESCRIPTION

A simple formatter to extract "just the digits, ma'am" from an E.123-formatted phone number.

=head1 METHOD

=head2 format

This is the only method. It takes an E.123 international format string as its only argument, strips off the leading + and country code, and any whitespace, and returns what's left. For example ...

  [phone] -> 2087712924

  [phone]  -> 2123340611

=head1 AUTHOR, COPYRIGHT and LICENCE

Copyright 2023 David Cantrell EFE

This software is free-as-in-speech software, and may be used,
distributed, and modified under the terms of either the GNU
General Public Licence version 2 or the Artistic Licence.  It's
up to you which one you use.  The full text of the licences can
be found in the files GPL2.txt and ARTISTIC.txt, respectively.

=cut