File Coverage

blib/lib/Number/Phone/NANP/BS.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 15 15 100.0


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