/usr/share/perl5/Number/Phone/NANP/SX.pm is in libnumber-phone-perl 3.0003-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 | package Number::Phone::NANP::SX;
use strict;
use base 'Number::Phone::NANP';
use Number::Phone::Country qw(noexport);
our $VERSION = 1.0;
my $cache = {};
# NB this module doesn't register itself, the NANP module should be
# used and will load this one as necessary
=head1 NAME
Number::Phone::NANP::SX - SX-specific methods for Number::Phone
=head1 DESCRIPTION
This class implements SX-specific methods for Number::Phone. It is
a subclass of Number::Phone::NANP, which is in turn a subclass of
Number::Phone. Number::Phone::NANP sits in the middle because all
NANP countries can share some significant chunks of code. You should
never need to C<use> this module directly, as C<Number::Phone::NANP>
will load it automatically when needed.
=head1 SYNOPSIS
use Number::Phone::NANP;
my $phone_number = Number::Phone->new('+1 721 555 0001');
# returns a Number::Phone::NANP::SX object
=head1 METHODS
The following methods from Number::Phone are overridden:
=over 4
(no methods are overridden)
=back
=head1 BUGS/FEEDBACK
Please report bugs at L<https://github.com/DrHyde/perl-modules-Number-Phone/issues>, including, if possible, a test case.
I welcome feedback from users.
=head1 LICENCE
You may use, modify and distribute this software under the same terms as
perl itself.
=head1 AUTHOR
David Cantrell E<lt>david@cantrell.org.ukE<gt>
Copyright 2005
=cut
1;
|