Stargazers controller file.

metacpan · Jul 1, 2014 · 2643696 · oalders · Jul 3, 2014 · 2643696
1 parent 70ccef4
commit 2643696
Showing 1 changed file with 26 additions and 0 deletions.
diff --git a/lib/MetaCPAN/Server/Controller/Stargazer.pm b/lib/MetaCPAN/Server/Controller/Stargazer.pm
@@ -0,0 +1,26 @@
+package MetaCPAN::Server::Controller::Stargazer;
+
+use strict;
+use warnings;
+
+use Moose;
+
+BEGIN { extends 'MetaCPAN::Server::Controller' }
+
+with 'MetaCPAN::Server::Role::JSONP';
+
+sub find : Path('') : Args(2) {
+    my ( $self, $c, $user, $module ) = @_;
+    eval {
+        my $stargazer = $self->model($c)->raw->get(
+            {
+                user         => $user,
+                module	     => $module
+            }
+        );
+        $c->stash( $stargazer->{_source} || $stargazer->{fields} );
+    } or $c->detach( '/not_found', [$@] );
+}
+
+__PACKAGE__->meta->make_immutable;
+1;