From e33b3f4ae5f63db6f734ef38049092911ea9961b Mon Sep 17 00:00:00 2001
From: Mark Wells <mark@freeside.biz>
Date: Thu, 17 Nov 2016 00:57:40 -0800
Subject: initial version

---
 TIGERweb/Service.pm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 TIGERweb/Service.pm

(limited to 'TIGERweb/Service.pm')

diff --git a/TIGERweb/Service.pm b/TIGERweb/Service.pm
new file mode 100644
index 0000000..65cc8c6
--- /dev/null
+++ b/TIGERweb/Service.pm
@@ -0,0 +1,22 @@
+package Geo::USCensus::TIGERweb::Service;
+
+use strict;
+use warnings;
+use base 'Geo::USCensus::TIGERweb';
+use Geo::USCensus::TIGERweb::Layer;
+
+use List::Util qw(first);
+
+sub layer {
+  my $self = shift;
+  my $id_or_name = shift;
+  my $def = first { $_->{id} eq $id_or_name or $_->{name} eq $id_or_name }
+            @{ $self->info->{layers} };
+  if (!$def) {
+    $self->{error} = "TIGERweb layer name/id '$id_or_name' not found";
+    return;
+  }
+  return $self->create('Layer', $def->{id});
+}
+
+1;
-- 
cgit v1.2.1