File Coverage

blib/lib/Geo/WebService/OpenCellID/Base.pm
Criterion Covered Total %
statement 14 16 87.5
branch n/a
condition 1 3 33.3
subroutine 4 5 80.0
pod 2 3 66.6
total 21 27 77.7


line stmt bran cond sub pod time code
1             package Geo::WebService::OpenCellID::Base;
2 4     4   25 use warnings;
  4         8  
  4         121  
3 4     4   20 use strict;
  4         7  
  4         724  
4             our $VERSION = '0.03';
5              
6             =head1 NAME
7              
8             Geo::WebService::OpenCellID::Base - Perl API for the opencellid.org database
9              
10             =head1 SYNOPSIS
11              
12             use base qw{Geo::WebService::OpenCellID::Base};
13              
14             =head1 DESCRIPTION
15              
16             =head1 USAGE
17              
18             =head1 CONSTRUCTOR
19              
20             =head2 new
21              
22             =cut
23              
24             sub new {
25 4     4 1 79 my $this = shift();
26 4   33     34 my $class = ref($this) || $this;
27 4         10 my $self = {};
28 4         13 bless $self, $class;
29 4         35 $self->initialize(@_);
30 4         794 return $self;
31             }
32              
33             sub initialize {
34 4     4 0 11 my $self = shift();
35 4         39 %$self=@_;
36             }
37              
38             =head1 METHODS
39              
40             =head2 parent
41              
42             =cut
43              
44             sub parent {
45 0     0 1   my $self=shift;
46 0           return $self->{"parent"};
47             }
48              
49             =head1 BUGS
50              
51             Submit to RT and email the Author
52              
53             =head1 SUPPORT
54              
55             Try the Author or Try 8motions.com
56              
57             =head1 AUTHOR
58              
59             Michael R. Davis
60             CPAN ID: MRDVT
61             STOP, LLC
62             domain=>michaelrdavis,tld=>com,account=>perl
63             http://www.stopllc.com/
64              
65             =head1 COPYRIGHT
66              
67             This program is free software; you can redistribute
68             it and/or modify it under the same terms as Perl itself.
69              
70             The full text of the license can be found in the
71             LICENSE file included with this module.
72              
73             =head1 SEE ALSO
74              
75             =cut
76              
77             1;