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 3 3 100.0
total 22 27 81.4


line stmt bran cond sub pod time code
1             package Geo::WebService::OpenCellID::Base;
2 4     4   28 use warnings;
  4         11  
  4         187  
3 4     4   19 use strict;
  4         5  
  4         703  
4             our $VERSION = '0.06';
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 9     9 1 1104931 my $this = shift();
26 9   33     131 my $class = ref($this) || $this;
27 9         26 my $self = {};
28 9         25 bless $self, $class;
29 9         70 $self->initialize(@_);
30 9         49 return $self;
31             }
32              
33             =head2 initialize
34              
35             =cut
36              
37             sub initialize {
38 9     9 1 23 my $self = shift();
39 9         68 %$self=@_;
40             }
41              
42             =head1 METHODS
43              
44             =head2 parent
45              
46             =cut
47              
48             sub parent {
49 0     0 1   my $self=shift;
50 0           return $self->{"parent"};
51             }
52              
53             =head1 COPYRIGHT
54              
55             Copyright (c) 2025 Michael R. Davis
56              
57             This program is free software; you can redistribute
58             it and/or modify it under the same terms as Perl itself.
59              
60             The full text of the license can be found in the
61             LICENSE file included with this module.
62              
63             =cut
64              
65             1;