File Coverage

blib/lib/Net/Radio/Modem/Adapter/Null.pm
Criterion Covered Total %
statement 15 16 93.7
branch n/a
condition n/a
subroutine 6 7 85.7
pod 3 3 100.0
total 24 26 92.3


line stmt bran cond sub pod time code
1             package Net::Radio::Modem::Adapter::Null;
2              
3 1     1   36 use 5.010;
  1         4  
  1         49  
4              
5 1     1   6 use strict;
  1         3  
  1         43  
6 1     1   5 use warnings;
  1         2  
  1         60  
7              
8             =head1 NAME
9              
10             Net::Radio::Modem::Adapter::Null - Null modem adapter
11              
12             =head1 DESCRIPTION
13              
14             This radio modem adapter doesn't provide any information.
15             It simply returns empty results on all requests.
16              
17             =head1 SYNOPSIS
18              
19             use Net::Radio::Modem;
20             my $null_modem = Net::Radio::Adapter->new("Null");
21             my @empty_list = $null_modem->get_modems();
22              
23             Sure, it would be easier to get an empty list. But TIAMTWTDO ;)
24              
25             =cut
26              
27             our $VERSION = '0.002';
28 1     1   5 use base qw(Net::Radio::Modem::Adapter);
  1         1  
  1         226  
29              
30             =head1 METHODS
31              
32             =head2 new
33              
34             Initializes Net::Radio::Modem::Adapter::Null object.
35              
36             =cut
37              
38             sub new
39             {
40 1     1 1 3 my $class = shift;
41 1         7 return bless( {}, $class );
42             }
43              
44             =head2 get_modems
45              
46             Returns an empty list of known modems.
47              
48             =cut
49              
50             sub get_modems
51             {
52 1     1 1 4 return;
53             }
54              
55             =head2 get_modem_property
56              
57             Returns an empty value for the request to the property of not existing modem.
58              
59             =cut
60              
61             sub get_modem_property
62             {
63 0     0 1   return;
64             }
65              
66             =head1 BUGS
67              
68             Please report any bugs or feature requests to C, or through
69             the web interface at L. I will be notified, and then you'll
70             automatically be notified of progress on your bug as I make changes.
71              
72             If you think you've found a bug then please read "How to Report Bugs
73             Effectively" by Simon Tatham:
74             L.
75              
76             =head1 SUPPORT
77              
78             You can find documentation for this module with the perldoc command.
79              
80             perldoc Net::Radio::Modem
81              
82             You can also look for information at:
83              
84             =over 4
85              
86             =item * RT: CPAN's request tracker (report bugs here)
87              
88             L
89              
90             If you think you've found a bug then please read "How to Report Bugs
91             Effectively" by Simon Tatham:
92             L.
93              
94             =item * AnnoCPAN: Annotated CPAN documentation
95              
96             L
97              
98             =item * CPAN Ratings
99              
100             L
101              
102             =item * Search CPAN
103              
104             L
105              
106             =back
107              
108             =head2 Where can I go for help with a concrete version?
109              
110             Bugs and feature requests are accepted against the latest version
111             only. To get patches for earlier versions, you need to get an
112             agreement with a developer of your choice - who may or not report the
113             issue and a suggested fix upstream (depends on the license you have
114             chosen).
115              
116             =head2 Business support and maintenance
117              
118             For business support you can contact Jens via his CPAN email
119             address rehsackATcpan.org. Please keep in mind that business
120             support is neither available for free nor are you eligible to
121             receive any support based on the license distributed with this
122             package.
123              
124             =head1 ACKNOWLEDGEMENTS
125              
126             =head1 AUTHOR
127              
128             Jens Rehsack, C<< >>
129              
130             =head1 LICENSE AND COPYRIGHT
131              
132             Copyright 2012 Jens Rehsack.
133              
134             This program is free software; you can redistribute it and/or modify it
135             under the terms of either: the GNU General Public License as published
136             by the Free Software Foundation; or the Artistic License.
137              
138             See http://dev.perl.org/licenses/ for more information.
139              
140             =cut
141              
142             1;