File Coverage

blib/lib/Ekahau/Response/DeviceList.pm
Criterion Covered Total %
statement 9 14 64.2
branch 0 2 0.0
condition n/a
subroutine 3 6 50.0
pod 2 3 66.6
total 14 25 56.0


line stmt bran cond sub pod time code
1             package Ekahau::Response::DeviceList;
2 6     6   161 use base 'Ekahau::Response'; our $VERSION=Ekahau::Response::VERSION;
  6         13  
  6         735  
3              
4             # Written by Scott Gifford
5             # Copyright (C) 2004 The Regents of the University of Michigan.
6             # See the file LICENSE included with the distribution for license
7             # information.
8              
9 6     6   32 use strict;
  6         15  
  6         193  
10 6     6   31 use warnings;
  6         12  
  6         906  
11              
12             =head1 NAME
13              
14             Ekahau::Response::DeviceList - A list of devices visible to Ekahau
15              
16             =head1 SYNOPSIS
17              
18             Contains a list of devices visible to Ekahau. This response only
19             contains the device identifiers, and no other information about the
20             devices. This class inherits from L , and methods
21             that class can be used on this object.
22              
23             =head1 DESCRIPTION
24              
25             =head2 Constructor
26              
27             Generally you will not want to construct these objects yourself; they
28             are created by L, and use its constructor.
29              
30             =head2 Methods
31              
32             =cut
33              
34             # Internal method
35             sub init
36             {
37 0 0   0 0   warn "Created Ekahau::Response::DeviceList object\n"
38             if ($ENV{VERBOSE});
39             }
40              
41             =head3 devices ( )
42              
43             Returns the list of device identifiers contained in this response.
44              
45             =cut
46              
47             sub devices
48             {
49 0     0 1   my $self = shift;
50 0           keys %{$self->{params}};
  0            
51             }
52              
53             =head3 type ( )
54              
55             Returns the string I, to identify the type of this object.
56              
57             =cut
58              
59             sub type
60             {
61 0     0 1   'DeviceList';
62             }
63              
64             =head1 AUTHOR
65              
66             Scott Gifford Egifford@umich.eduE, Esgifford@suspectclass.comE
67              
68             Copyright (C) 2005 The Regents of the University of Michigan.
69              
70             See the file LICENSE included with the distribution for license
71             information.
72              
73              
74             =head1 SEE ALSO
75              
76             L, L, L.
77              
78             =cut
79              
80             1;