Adds a cached endpoint to the API

oalders · Apr 24, 2012 · 2e6a63b · 2e6a63b
1 parent f81e6d3
commit 2e6a63b
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/lib/MetaCPAN/Pod.pm b/lib/MetaCPAN/Pod.pm
@@ -38,6 +38,13 @@ sub convert {
 
 }
 
+sub is_cached {
+    my $self = shift;
+    my $name = shift;
+
+    return $self->mech->is_cached( $self->metacpan_url( $name ) );
+}
+
 sub parse_pod {
 
     my $self    = shift;

diff --git a/lib/Pod2HTML.pm b/lib/Pod2HTML.pm
@@ -28,6 +28,18 @@ get '/podpath/**' => sub {
 
 };
 
+get '/from_cache/**' => sub {
+
+    my @matches = splat;
+    my $path = join( "/", @{$matches[0]} );
+    my $pod = MetaCPAN::Pod->new;
+
+    return $pod->convert( $path ) if $pod->is_cached( $path );
+    status 'not_found';
+
+};
+
+
 true;
 
 =pod