Merge pull request #1275 from metacpan/haarg/no-args

add Args(0) to controller actions not expected to recieve args

Author: haarg

lib/MetaCPAN/Server/Controller.pm

@@ -52,7 +52,7 @@ sub model {
     return $model;
 }
 
-sub mapping : Path('_mapping') {
+sub mapping : Path('_mapping') Args(0) {
     my ( $self, $c ) = @_;
     $c->stash(
         $c->model('CPAN')->es->indices->get_mapping(

lib/MetaCPAN/Server/Controller/Login.pm

@@ -26,7 +26,7 @@ sub auto : Private {
     return 1;
 }
 
-sub index : Path {
+sub index : Path Args(0) {
     my ( $self, $c ) = @_;
     my @login = map { "<li><a href=\"/login/" . lc($_) . "\">$_</a></li>" }
         sort map /^Login::(.*)/, $c->controllers;

lib/MetaCPAN/Server/Controller/Login/GitHub.pm

@@ -13,7 +13,7 @@ has [qw(consumer_key consumer_secret)] => (
     required => 1,
 );
 
-sub index : Path {
+sub index : Path Args(0) {
     my ( $self, $c ) = @_;
     if ( my $code = $c->req->params->{code} ) {
         my $ua  = LWP::UserAgent->new;

lib/MetaCPAN/Server/Controller/Login/Google.pm

@@ -15,7 +15,7 @@ has [qw( consumer_key consumer_secret )] => (
     required => 1,
 );
 
-sub index : Path {
+sub index : Path Args(0) {
     my ( $self, $c ) = @_;
     my $req = $c->req;
 

lib/MetaCPAN/Server/Controller/Login/PAUSE.pm

@@ -23,7 +23,7 @@ sub _build_cache {
     );
 }
 
-sub index : Path {
+sub index : Path Args(0) {
     my ( $self, $c ) = @_;
     my $code = $c->req->params->{code};
     my $id;

lib/MetaCPAN/Server/Controller/Login/Twitter.pm

@@ -20,7 +20,7 @@ sub nt {
     );
 }
 
-sub index : Path {
+sub index : Path Args(0) {
     my ( $self, $c ) = @_;
     my $req = $c->req;
 

lib/MetaCPAN/Server/Controller/Pod.pm

@@ -77,7 +77,7 @@ sub find_dist_links {
     return $links;
 }
 
-sub render : Path('/pod_render') {
+sub render : Path('/pod_render') Args(0) {
     my ( $self, $c ) = @_;
     my $pod         = $c->req->parameters->{pod};
     my $show_errors = !!$c->req->parameters->{show_errors};

lib/MetaCPAN/Server/Controller/Root.pm

@@ -62,7 +62,7 @@ sub bad_request : Private {
     $c->forward( $c->view('JSON') );
 }
 
-sub robots : Path("robots.txt") {
+sub robots : Path("robots.txt") Args(0) {
     my ( $self, $c ) = @_;
     $c->res->content_type("text/plain");
     $c->res->body("User-agent: *\nDisallow: /\n");

lib/MetaCPAN/Server/Controller/User.pm

@@ -31,7 +31,7 @@ sub auto : Private {
     return $c->user_exists;
 }
 
-sub index : Path {
+sub index : Path Args(0) {
     my ( $self, $c ) = @_;
     $c->stash( $c->user->data );
     delete $c->stash->{code};