File Coverage

blib/lib/Number/Phone/UK/IM.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::UK::IM;
2              
3 3     3   1410 use strict;
  3         10  
  3         115  
4              
5 3     3   20 use base 'Number::Phone::UK';
  3         9  
  3         594  
6              
7             our $VERSION = 1.0;
8              
9             =head1 NAME
10              
11             Number::Phone::UK::IM - IM-specific methods for Number::Phone
12              
13             =head1 DESCRIPTION
14              
15             This class implements IM-specific methods for Number::Phone. It is
16             a subclass of Number::Phone::UK, which is in turn a subclass of
17             Number::Phone. Number::Phone::UK sits in the middle because IM is
18             treated as part of the UK for just about all telephonic purposes.
19             You should
20             never need to C this module directly, as C
21             will load it automatically when needed.
22              
23             =head1 SYNOPSIS
24              
25             use Number::Phone::UK
26            
27             my $phone_number = Number::Phone->new('+44 1624 654321');
28             # returns a Number::Phone::UK::IM object
29            
30             =head1 METHODS
31              
32             The following methods from Number::Phone::UK are overridden:
33              
34             =over 4
35              
36             =item regulator
37              
38             Returns information about the national telecomms regulator.
39              
40             =cut
41              
42 4     4 1 44 sub regulator { return 'Isle of Man Communications Commission, http://www.gov.im/government/boards/telecommunications.xml'; }
43              
44             =back
45              
46             =head1 BUGS/FEEDBACK
47              
48             Please report bugs at L, including, if possible, a test case.
49              
50             I welcome feedback from users.
51              
52             =head1 LICENCE
53              
54             You may use, modify and distribute this software under the same terms as
55             perl itself.
56              
57             =head1 AUTHOR
58              
59             David Cantrell Edavid@cantrell.org.ukE
60              
61             Copyright 2023
62              
63             =cut
64              
65             1;