File Coverage

blib/lib/Geo/SpatialDB/Entity.pm

Criterion	Covered	Total	%
statement	6	14	42.8
branch	0	2	0.0
condition	0	9	0.0
subroutine	2	4	50.0
pod	0	2	0.0
total	8	31	25.8

package Geo::SpatialDB::Entity;
$Geo::SpatialDB::Entity::VERSION = '0.000_001'; # TRIAL

$Geo::SpatialDB::Entity::VERSION = '0.000001';use Moo 2;
use namespace::clean;

# ABSTRACT: A logical thing found on a map (as opposed to the physical features that form it)

has id   => ( is => 'rw' );
has type => ( is => 'rw' );
has tags => ( is => 'rw' );

sub TO_JSON {
	my $self= shift;
	my %data= %$self;
	for (keys %data) {
		delete $data{$_}
			if $_ =~ /^[^a-z]/
			or !defined $data{$_}
			or (ref $data{$_} eq 'HASH' && !keys %{ $data{$_} });
	}
	\%data;
}

sub tag {
	my ($self, $key)= @_;
	return $self->{tags}{$key};
}

1;

__END__