1 package Geo::USCensus::TIGERweb::Service;
5 use base 'Geo::USCensus::TIGERweb';
6 use Geo::USCensus::TIGERweb::Layer;
8 use List::Util qw(first);
12 my $id_or_name = shift;
13 my $def = first { $_->{id} eq $id_or_name or $_->{name} eq $id_or_name }
14 @{ $self->info->{layers} };
16 $self->{error} = "TIGERweb layer name/id '$id_or_name' not found";
19 return $self->create('Layer', $def->{id});