Reaction::UI::Controller::Role::RedirectTo - Reaction::UI::Controller::Role::RedirectTo documentation

Reaction documentation Contained in the Reaction distribution.

Index

Code Index:

NAME

Top

Reaction::UI::Controller::Role::RedirectTo

DESCRIPTION

Top

Provides a redirect_to method, which aims to be a more convenient way to create internal redirects vs Catalyst::uri_for and Catalyst::Response::redirect

DEPRECATION NOTICE

Top

This method was separated out of Catalyst::Controller to facilitate deprecation. The behavior of this method is, by design, flawed and you should aim to replace any instances of it in your codebase;

METHODS

Top

redirect_to $c, 'action_name', \@captures, \@args, \%query_parms

redirect_to $c, $action_object, \@captures, \@args, \%query_parms

redirect_to $c, [ Controller_name => 'action_name' ], \@captures, \@args, \%query_parms

Will create a uri from the arguments given and redirect to it without detaching. If captures and arguments are not explicitly given, the ones from the current request will be used. If query-parameters are not given, none will be used.

The first argument after $c cab be one of three, the name of an action present in the controller returned by $c->controller, an action object, or an array reference contraining 2 items, a controller name and an action name.

AUTHORS

Top

See Reaction::Class for authors.

LICENSE

Top

See Reaction::Class for the license.

Reaction documentation Contained in the Reaction distribution. 
package Reaction::UI::Controller::Role::RedirectTo;

use Moose::Role;

sub redirect_to {
  my ($self, $c, $to, $cap, $args, $attrs) = @_;

  $c->log->debug(
    "Using redirect_to is now deprecated and may be removed in the future."
  );

  #the confess calls could be changed later to $c->log ?
  my $action;
  my $reftype = ref($to);
  if( $reftype eq '' ){
    $action = $self->action_for($to);
    confess("Failed to locate action ${to} in " . blessed($self)) unless $action;
  } elsif($reftype eq 'ARRAY' && @$to == 2){ #is that overkill / too strict?
    $action = $c->controller($to->[0])->action_for($to->[1]);
    confess("Failed to locate action $to->[1] in $to->[0]" ) unless $action;
  } elsif( blessed $to && $to->isa('Catalyst::Action') ){
    $action = $to;
  } else{
    confess("Failed to locate action from ${to}");
  }

  $cap ||= $c->req->captures;
  $args ||= $c->req->args;
  $attrs ||= {};
  my $uri = $c->uri_for($action, $cap, @$args, $attrs);
  $c->res->redirect($uri);
}

1;

__END__;