File Coverage

blib/lib/Geo/WebService/OpenCellID/Response/cell/getMeasures.pm
Criterion Covered Total %
statement 9 12 75.0
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 19 68.4


line stmt bran cond sub pod time code
1             package Geo::WebService::OpenCellID::Response::cell::getMeasures;
2 4     4   25 use warnings;
  4         7  
  4         403  
3 4     4   24 use strict;
  4         8  
  4         127  
4 4     4   20 use base qw{Geo::WebService::OpenCellID::Response::cell::get};
  4         8  
  4         1644  
5             our $VERSION = '0.03';
6              
7             =head1 NAME
8              
9             Geo::WebService::OpenCellID::Response::cell::getMeasures - Perl API for the opencellid.org database
10              
11             =head1 SYNOPSIS
12              
13             =head1 DESCRIPTION
14              
15             Perl Interface to the database at http://www.opencellid.org/
16              
17             =head1 USAGE
18              
19             =head1 METHODS
20              
21             =head2 measures
22              
23             Returns a list of measures (list of hash references)
24              
25             =cut
26              
27             *measure=\&measures;
28              
29             sub measures {
30 0     0 1   my $self=shift;
31 0           my $list=$self->{"data"}->{"cell"}->[0]->{"measure"};
32 0 0         return wantarray ? @$list : $list;
33             }
34              
35             =head1 BUGS
36              
37             Submit to RT and email the Author
38              
39             =head1 SUPPORT
40              
41             Try the Author or Try 8motions.com
42              
43             =head1 AUTHOR
44              
45             Michael R. Davis
46             CPAN ID: MRDVT
47             STOP, LLC
48             domain=>michaelrdavis,tld=>com,account=>perl
49             http://www.stopllc.com/
50              
51             =head1 COPYRIGHT
52              
53             This program is free software; you can redistribute
54             it and/or modify it under the same terms as Perl itself.
55              
56             The full text of the license can be found in the
57             LICENSE file included with this module.
58              
59             =head1 SEE ALSO
60              
61             =cut
62              
63             1;