File Coverage

blib/lib/Geo/Leaflet/Objects.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	4	50.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	24	26	92.3

line	stmt	bran	sub	pod	time	code
1						package Geo::Leaflet::Objects;
2	2		2		18	use strict;
	2				4
	2				92
3	2		2		12	use warnings;
	2				3
	2				116
4	2		2		12	use base qw{Geo::Leaflet::Base};
	2				4
	2				617
5
6						our $VERSION = '0.03';
7						our $PACKAGE = __PACKAGE__;
8
9						=head1 NAME
10
11						Geo::Leaflet::Objects - Leaflet object base package
12
13						=head1 SYNOPSIS
14
15						use Geo::Leaflet;
16						my $map = Geo::Leaflet->new;
17
18						=head1 DESCRIPTION
19
20						This package provides a base package for L map objects that supports popups and tooltips.
21
22						=head1 CONSTRUCTORS
23
24						=head2 new
25
26						=head1 PROPERTIES
27
28						=head2 options
29
30						=head2 popup
31
32						=cut
33
34						sub popup {
35	6		6	1	11	my $self = shift;
36	6	50			13	$self->{'popup'} = shift if @_;
37	6				47	return $self->{'popup'};
38						}
39
40						=head2 tooltip
41
42						=cut
43
44						sub tooltip {
45	3		3	1	4	my $self = shift;
46	3	50			7	$self->{'tooltip'} = shift if @_;
47	3				14	return $self->{'tooltip'};
48						}
49
50						=head1 METHODS
51
52						=head2 stringify_base
53
54						=head2 JSON
55
56						=head1 SEE ALSO
57
58						=head1 AUTHOR
59
60						Michael R. Davis
61
62						=head1 COPYRIGHT AND LICENSE
63
64						Copyright (C) 2024 by Michael R. Davis
65
66						MIT LICENSE
67
68						=cut
69
70						1;