File Coverage

blib/lib/Geo/WebService/OpenCellID/measure.pm
Criterion Covered Total %
statement 12 14 85.7
branch n/a
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 20 85.0


line stmt bran cond sub pod time code
1             package Geo::WebService::OpenCellID::measure;
2 4     4   21 use warnings;
  4         9  
  4         149  
3 4     4   20 use strict;
  4         13  
  4         154  
4 4     4   20 use base qw{Geo::WebService::OpenCellID::Base};
  4         57  
  4         320  
5 4     4   2731 use Geo::WebService::OpenCellID::Response::measure::add;
  4         10  
  4         587  
6             our $VERSION = '0.03';
7              
8             =head1 NAME
9              
10             Geo::WebService::OpenCellID::measure - Perl API for the opencellid.org database
11              
12             =head1 SYNOPSIS
13              
14             use Geo::WebService::OpenCellID;
15             my $gwo=Geo::WebService::OpenCellID->new(key=>$apikey);
16             my $point=$gwo->measure->get(mcc=>$country,
17             mnc=>$network,
18             lac=>$locale,
19             cellid=>$cellid);
20             printf "Lat:%s, Lon:%s\n", $point->latlon;
21              
22             =head1 DESCRIPTION
23              
24             Perl Interface to the database at http://www.opencellid.org/
25              
26             =head1 USAGE
27              
28             =head1 METHODS
29              
30             =head2 add
31              
32             Returns a response object L.
33              
34             my $response=$gwo->cell->add(key=>$myapikey,
35             lat=>$lat,
36             lon=>$lon,
37             mnc=>$mnc,
38             mcc=>$mcc,
39             lac=>$lac,
40             cellid=>$cellid,
41             measured_at=>$dt, #time format is not well defined
42             #use is optional
43             #suggest W3C e.g. 2009-02-28T07:25Z
44             );
45              
46            
47            
48             Measure added, id:6121024
49            
50              
51             =cut
52              
53             sub add {
54 0     0 1   my $self=shift;
55 0           return $self->parent->call("measure/add",
56             "Geo::WebService::OpenCellID::Response::measure::add",
57             @_);
58             }
59              
60             =head1 BUGS
61              
62             Submit to RT and email the Author
63              
64             =head1 SUPPORT
65              
66             Try the Author or Try 8motions.com
67              
68             =head1 AUTHOR
69              
70             Michael R. Davis
71             CPAN ID: MRDVT
72             STOP, LLC
73             domain=>michaelrdavis,tld=>com,account=>perl
74             http://www.stopllc.com/
75              
76             =head1 COPYRIGHT
77              
78             This program is free software; you can redistribute
79             it and/or modify it under the same terms as Perl itself.
80              
81             The full text of the license can be found in the
82             LICENSE file included with this module.
83              
84             =head1 SEE ALSO
85              
86             =cut
87              
88             1;