/usr/share/perl5/Number/Phone/NANP/GD.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 66 67 68 69 70 71 72 73 | package Number::Phone::NANP::GD;
# numbering plan at http://www.itu.int/itudoc/itu-t/number/g/grd/84642.html
use strict;
use base 'Number::Phone::NANP';
use Number::Phone::Country qw(noexport);
our $VERSION = 1.1;
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::GD - GD-specific methods for Number::Phone
=head1 DESCRIPTION
This class implements GD-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 473 435 6872');
# returns a Number::Phone::NANP::GD object
=head1 METHODS
The following methods from Number::Phone are overridden:
=over 4
=item regulator
Returns information aboutthe national telecomms regulator.
=cut
sub regulator { 'NTRC, http://www.ectel.int/grd/'; }
=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;
|