What is the recommended way to apply a Response trait? Include it in a
response subclass similar to how Catalyst::Action::REST injects
Catalyst::Request::REST?
http://cpansearch.perl.org/src/JJNAPIORK/Catalyst-Action-REST-1.12/lib/Catalyst/Action/SerializeBase.pm
What I was interested in is wrapping redirect and filtering out any
white-space to prevent response splitting.
sub redirect {
my $self = shift;
if (@_) {
my $location = shift;
my $status = shift || 302;
$self->location($location);
$self->status($status);
}
return $self->location;
}
--
Bill Moseley
moseley@hank.org
response subclass similar to how Catalyst::Action::REST injects
Catalyst::Request::REST?
http://cpansearch.perl.org/src/JJNAPIORK/Catalyst-Action-REST-1.12/lib/Catalyst/Action/SerializeBase.pm
What I was interested in is wrapping redirect and filtering out any
white-space to prevent response splitting.
sub redirect {
my $self = shift;
if (@_) {
my $location = shift;
my $status = shift || 302;
$self->location($location);
$self->status($status);
}
return $self->location;
}
--
Bill Moseley
moseley@hank.org