File Coverage

blib/lib/Geo/WebService/OpenCellID/Response.pm
Criterion Covered Total %
statement 9 15 60.0
branch n/a
condition n/a
subroutine 3 6 50.0
pod 3 3 100.0
total 15 24 62.5


line stmt bran cond sub pod time code
1             package Geo::WebService::OpenCellID::Response;
2 4     4   29 use base qw{Geo::WebService::OpenCellID::Base};
  4         8  
  4         343  
3 4     4   22 use warnings;
  4         6  
  4         90  
4 4     4   19 use strict;
  4         5  
  4         5922  
5             our $VERSION = '0.04';
6              
7             =head1 NAME
8              
9             Geo::WebService::OpenCellID::Response - Perl API for the opencellid.org database
10              
11             =head1 SYNOPSIS
12              
13             use base qw{Geo::WebService::OpenCellID::Response};
14              
15             =head1 DESCRIPTION
16              
17             =head1 USAGE
18              
19             =head1 CONSTRUCTOR
20              
21             =head2 new
22              
23             =cut
24              
25             =head1 METHODS
26              
27             =head2 stat
28              
29             Returns the status from rsp->stat in the xml
30              
31             =cut
32              
33             sub stat {
34 0     0 1   my $self=shift;
35 0           return $self->{"data"}->{"stat"};
36             }
37              
38             =head2 content
39              
40             Returns the entire XML document.
41              
42             =cut
43              
44             sub content {
45 0     0 1   my $self=shift;
46 0           return $self->{"content"};
47             }
48              
49             =head2 url
50              
51             Returns the url of the web service as called
52              
53             =cut
54              
55             sub url {
56 0     0 1   my $self=shift;
57 0           return $self->{"url"};
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;