fix the pod end point when given a module name

The find_pod method would sometimes return the source and sometimes a
full record from Elasticsearch. Fix the return to always return the
source, and adjust the caller to work with this form.

Author: haarg

lib/MetaCPAN/Query/File.pm

@@ -679,7 +679,7 @@ sub find_pod {
                 query => $query,
             },
         );
-        return $pod_file->{hits}{hits}[0];
+        return $pod_file->{hits}{hits}[0]->{_source};
     }
     else {
         return $file;

lib/MetaCPAN/Server/Controller/Pod.pm

@@ -39,7 +39,7 @@ sub get : Path('') : Args(1) {
     $module = $c->model('ESQuery')->file->find_pod($module)
         or $c->detach( '/not_found', [] );
     $c->forward( 'find',
-        [ map { $module->{_source}{$_} } qw(author release path) ] );
+        [ map { $module->{$_} } qw(author release path) ] );
 }
 
 sub find_dist_links {