Use Roles to implement starring.

metacpan · Jul 24, 2014 · 1597f44 · Talina06 · Jul 24, 2014 · 1597f44
1 parent dbdb639
commit 1597f44
Show file tree

Hide file tree

Showing 2 changed files with 45 additions and 35 deletions.
diff --git a/lib/MetaCPAN/Server/Controller/User/Stargazer.pm b/lib/MetaCPAN/Server/Controller/User/Stargazer.pm
@@ -7,6 +7,8 @@ use Moose;
 
 BEGIN { extends 'Catalyst::Controller::REST' }
 
+with 'MetaCPAN::Server::Role::MapStarring';
+
 sub auto : Private {
     my ( $self, $c ) = @_;
     unless ( $c->user->looks_human ) {
@@ -20,39 +22,4 @@ sub auto : Private {
 sub index : Path : ActionClass('REST') {
 }
 
-sub index_POST {
-    my ( $self, $c ) = @_;
-    my $req  = $c->req;
-    my $star = $c->model('CPAN::Stargazer')->put(
-        {
-            user    => $c->user->id,
-            author  => $req->data->{author},
-            release => $req->data->{release},
-            module  => $req->data->{module},
-            author  => $req->data->{author},
-        },
-        { refresh => 1 }
-    );
-    $self->status_created(
-        $c,
-        location => $c->uri_for(
-            join( q{/}, '/stargazer', $star->user, $star->module )
-        ),
-        entity => $star->meta->get_data($star)
-    );
-}
-
-sub index_DELETE {
-    my ( $self, $c, $module ) = @_;
-    my $star = $c->model('CPAN::Stargazer')
-        ->get( { user => $c->user->id, module => $module } );
-    if ($star) {
-        $star->delete( { refresh => 1 } );
-        $self->status_ok( $c, entity => $star->meta->get_data($star) );
-    }
-    else {
-        $self->status_not_found( $c, message => 'Entity could not be found' );
-    }
-}
-
 1;
diff --git a/lib/MetaCPAN/Server/Role/MapStarring.pm b/lib/MetaCPAN/Server/Role/MapStarring.pm
@@ -0,0 +1,43 @@
+package MetaCPAN::Server::Role::MapStarring;
+
+use strict;
+use warnings;
+
+use Moose::Role;
+
+sub index_POST {
+    my ( $self, $c ) = @_;
+    my $req  = $c->req;
+    my $star = $c->model('CPAN::Stargazer')->put(
+        {
+            user    => $c->user->id,
+            author  => $req->data->{author},
+            release => $req->data->{release},
+            module  => $req->data->{module},
+            author  => $req->data->{author},
+        },
+        { refresh => 1 }
+    );
+    $self->status_created(
+        $c,
+        location => $c->uri_for(
+            join( q{/}, '/stargazer', $star->user, $star->module )
+        ),
+        entity => $star->meta->get_data($star)
+    );
+}
+
+sub index_DELETE {
+    my ( $self, $c, $module ) = @_;
+    my $star = $c->model('CPAN::Stargazer')
+        ->get( { user => $c->user->id, module => $module } );
+    if ($star) {
+        $star->delete( { refresh => 1 } );
+        $self->status_ok( $c, entity => $star->meta->get_data($star) );
+    }
+    else {
+        $self->status_not_found( $c, message => 'Entity could not be found' );
+    }
+}
+
+1;