rvice, either as a file or as a variable in the call to
Geo::OGC::Service->new.
The file must be JSON and either have top level key WMTS, WMS, or TMS
if more than one service is defined. The value of
10000; # say // and //=
use feature "switch";
use Carp;
use File::Basename;
use Modern::Perl;
use JSON;
use Geo::GDAL;
use Cwd;
use Math::Trig;
use HTTP::Date;
use Data::Dumper;
use XML::LibXML::Pret
ndef;
} else {
my $json = JSON->new;
$json->allow_blessed([1]);
my $writer = $self->{responder}->([200, [ 'Content-Type' => 'application/json',