File Coverage

blib/lib/Number/Phone/Formatter/EPP.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

#
# This file is part of Number-Phone-Formatter-EPP
#
# This software is copyright (c) 2016 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::EPP;
$Number::Phone::Formatter::EPP::VERSION = '0.07';
# ABSTRACT: An EPP formatter for Number::Phone

use strict;
use warnings;


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

    my ($code, $subscriber) = split /\s+/, $number, 2;

    $code =~ s/\D+//g;
    $subscriber =~ s/\D+//g;

    return "+${code}.${subscriber}";
}

1;

__END__