File Coverage

blib/lib/Number/Phone/NANP/MP.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Number::Phone::NANP::MP;
2              
3              
4 2     2   1051 use strict;
  2         10  
  2         72  
5              
6 2     2   21 use base 'Number::Phone::NANP';
  2         11  
  2         220  
7              
8 2     2   15 use Number::Phone::Country qw(noexport);
  2         11  
  2         22  
9              
10             our $VERSION = 1.1;
11              
12             my $cache = {};
13              
14             # NB this module doesn't register itself, the NANP module should be
15             # used and will load this one as necessary
16              
17             =head1 NAME
18              
19             Number::Phone::NANP::MP - MP-specific methods for Number::Phone
20              
21             =head1 DESCRIPTION
22              
23             This class implements MP-specific methods for Number::Phone. It is
24             a subclass of Number::Phone::NANP, which is in turn a subclass of
25             Number::Phone. Number::Phone::NANP sits in the middle because all
26             NANP countries can share some significant chunks of code. You should
27             never need to C this module directly, as C
28             will load it automatically when needed.
29              
30             =head1 SYNOPSIS
31              
32             use Number::Phone::NANP;
33            
34             my $phone_number = Number::Phone->new('+1 670 682 4555');
35             # returns a Number::Phone::NANP::MP object
36            
37             =head1 METHODS
38              
39             The following methods from Number::Phone are overridden:
40              
41             =over 4
42              
43             (no methods are overridden)
44              
45             =back
46              
47             =head1 BUGS/FEEDBACK
48              
49             Please report bugs at L, including, if possible, a test case.
50              
51             I welcome feedback from users.
52              
53             =head1 LICENCE
54              
55             You may use, modify and distribute this software under the same terms as
56             perl itself.
57              
58             =head1 AUTHOR
59              
60             David Cantrell Edavid@cantrell.org.ukE
61              
62             Copyright 2023
63              
64             =cut
65              
66             1;