import fix of issue Grinnz#35 empty search for sqlite backend

Author: bodo-hugo-barwich

README.pod

@@ -62,7 +62,7 @@ of one or more Perls.
 Dan Book <dbook@cpan.org>
 
 PerldocBrowser::Plugin::PerldocRenderer is a fork of the L<Mojolicious|https://mojolicious.org>
-team's L<Mojolicious::Plugin::PODRenderer> and its associated template.
+team's L<PODRenderer plugin|https://search.cpan.org/perldoc?Mojolicious::Plugin::PODRenderer> and its associated template.
 
 =head1 COPYRIGHT AND LICENSE
 
@@ -75,8 +75,5 @@ This is free software, licensed under:
 
   The Artistic License 2.0 (GPL Compatible)
 
-prettify.js is Copyright (c) 2006, 2013 Google Inc., licensed under the Apache
-License, Version 2.0 L<http://www.apache.org/licenses/LICENSE-2.0>.
-
 Bundled Perl 5 Raptor is Copyright (c) 2012, Sebastian Riedel, licensed under
 the CC-SA License, Version 4.0 L<http://creativecommons.org/licenses/by-sa/4.0>.

cpanfile

@@ -6,6 +6,7 @@ requires 'File::pushd';
 requires 'File::Spec';
 requires 'File::Temp';
 requires 'IPC::Run3';
+requires 'Lingua::EN::Sentence';
 requires 'List::Util' => '1.50';
 requires 'MetaCPAN::Pod::XHTML';
 requires 'Module::Metadata';

lib/PerldocBrowser/Command/purge.pm

@@ -0,0 +1,40 @@
+package PerldocBrowser::Command::purge;
+
+# This software is Copyright (c) 2018 by Dan Book <dbook@cpan.org>.
+# This is free software, licensed under:
+#   The Artistic License 2.0 (GPL Compatible)
+
+use 5.020;
+use Mojo::Base 'Mojolicious::Command';
+use Mojo::URL;
+use experimental 'signatures';
+
+has description => 'Purge Fastly cache';
+has usage => "Usage: $0 purge [all | <path> ...]\n";
+
+sub run ($self, @paths) {
+  die $self->usage unless @paths;
+  if ($paths[0] eq 'all') {
+    my $api_key = $self->app->config('fastly_api_key') // die "No fastly_api_key configured\n";
+    my $service_id = $self->app->config('fastly_service_id') // die "No fastly_service_id configured\n";
+    my $url = Mojo::URL->new('https://api.fastly.com')->path("/service/$service_id/purge_all");
+    my %headers = (
+      'Fastly-Key' => $api_key,
+      Accept => 'application/json',
+    );
+    my $res = $self->app->ua->post($url, \%headers)->result;
+    print $res->body, "\n";
+  } else {
+    foreach my $path (@paths) {
+      my $url = Mojo::URL->new($path);
+      unless (length $url->host) {
+        my $host = $self->app->config('canonical_host') // die "No canonical_host configured\n";
+        $url->scheme('https')->host($host);
+      }
+      my $res = $self->app->ua->start($self->app->ua->build_tx(PURGE => $url))->result;
+      print $res->body, "\n";
+    }
+  }
+}
+
+1;