TIGERweb/Service.pm

   1 package Geo::USCensus::TIGERweb::Service;
   2
   3 use strict;
   4 use warnings;
   5 use base 'Geo::USCensus::TIGERweb';
   6 use Geo::USCensus::TIGERweb::Layer;
   7
   8 use List::Util qw(first);
   9
  10 sub layer {
  11   my $self = shift;
  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} };
  15   if (!$def) {
  16     $self->{error} = "TIGERweb layer name/id '$id_or_name' not found";
  17     return;
  18   }
  19   return $self->create('Layer', $def->{id});
  20 }
  21
  22 1;