File Coverage

blib/lib/Geo/WebService/OpenCellID/Response/cell/get.pm
Criterion Covered Total %
statement 9 17 52.9
branch n/a
condition n/a
subroutine 3 7 42.8
pod 4 4 100.0
total 16 28 57.1


line stmt bran cond sub pod time code
1             package Geo::WebService::OpenCellID::Response::cell::get;
2 4     4   30 use warnings;
  4         7  
  4         829  
3 4     4   24 use strict;
  4         12  
  4         152  
4 4     4   22 use base qw{Geo::WebService::OpenCellID::Response::cell};
  4         8  
  4         2617  
5             our $VERSION = '0.03';
6              
7             =head1 NAME
8              
9             Geo::WebService::OpenCellID::Response::cell::get - 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 lat
22              
23             =cut
24              
25             sub lat {
26 0     0 1   my $self=shift;
27 0           return $self->{"data"}->{"cell"}->[0]->{"lat"};
28             }
29              
30             =head2 lon
31              
32             =cut
33              
34             sub lon {
35 0     0 1   my $self=shift;
36 0           return $self->{"data"}->{"cell"}->[0]->{"lon"};
37             }
38              
39             =head2 range
40              
41             =cut
42              
43             sub range {
44 0     0 1   my $self=shift;
45 0           return $self->{"data"}->{"cell"}->[0]->{"range"};
46             }
47              
48             =head2 nbSamples
49              
50             =cut
51              
52             sub nbSamples {
53 0     0 1   my $self=shift;
54 0           return $self->{"data"}->{"cell"}->[0]->{"nbSamples"};
55             }
56              
57             =head1 BUGS
58              
59             Submit to RT and email the Author
60              
61             =head1 SUPPORT
62              
63             Try the Author or Try 8motions.com
64              
65             =head1 AUTHOR
66              
67             Michael R. Davis
68             CPAN ID: MRDVT
69             STOP, LLC
70             domain=>michaelrdavis,tld=>com,account=>perl
71             http://www.stopllc.com/
72              
73             =head1 COPYRIGHT
74              
75             This program is free software; you can redistribute
76             it and/or modify it under the same terms as Perl itself.
77              
78             The full text of the license can be found in the
79             LICENSE file included with this module.
80              
81             =head1 SEE ALSO
82              
83             =cut
84              
85             1;