File Coverage

blib/lib/Number/Phone/NANP/AI.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 11 11 100.0


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