use utf8;
use strict;
use warnings;
package Number::Phone::FR::Full;
our $VERSION;
BEGIN {
$VERSION = '[% VERSION %]';
}
use Number::Phone::FR;
use parent 'Number::Phone::FR';
use Scalar::Util 'blessed';
sub RE_0() {
qr/[% RE_0 %]/
}
sub RE_SUBSCRIBER() {
qr/\A(?:[% RE_SUBSCRIBER %])\z/
}
sub RE_FULL() {
qr/\A(?:[% RE_FULL %])\z/
}
sub RE_PFX() {
qr/[% RE_PFX %]/
}
sub operator
{
my $num = Number::Phone::FR::subscriber(@_);
return unless defined $num;
$num .= '_' x (9 - length($num));
if ("${num}[% STR_OPERATORS %]" =~ m/^([% RE_OPERATOR %])/) {
my $op = substr($1, -4);
$op =~ s/ *$//;
return $op;
}
return undef;
}
1; # vim:set ft=perl et sw=4 sts=4: