File Coverage

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

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

#
# This file is part of Number-Phone-Formatter-NationalDigits
#
# This software is copyright (c) 2017 by Michael Schout.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#

package Number::Phone::Formatter::NationalDigits;
$Number::Phone::Formatter::NationalDigits::VERSION = '0.01';
# ABSTRACT: A L formatter for the national digits only.

use strict;
use warnings;


sub format {
    my ($self, $number) = @_;

    $number =~ s/^.*?\s//;
    $number =~ s/[^0-9]+//g;

    return $number;
}

1;

__END__