Committer: ailyin
LJSUP-9792 (generalize m.livejournal.com's router/controller/response framework)U trunk/cgi-bin/LJ/Response/Redirect.pm
Modified: trunk/cgi-bin/LJ/Response/Redirect.pm =================================================================== --- trunk/cgi-bin/LJ/Response/Redirect.pm 2011-09-13 07:30:02 UTC (rev 10996) +++ trunk/cgi-bin/LJ/Response/Redirect.pm 2011-09-13 09:13:40 UTC (rev 10997) @@ -1,24 +1,24 @@ -package LJ::Response::Redirect;-use strict;-use warnings;--use base qw( LJ::Response );--__PACKAGE__->mk_accessors( qw( where status ) );--sub output {- my ($self) = @_;-- my $status = LJ::Request->redirect( $self->where );-- unless ( $self->status ) {- $self->status($status);- }-}--sub http_status {- my ($self) = @_;- return $self->status;-}--1; \ No newline at end of file +package LJ::Response::Redirect; +use strict; +use warnings; + +use base qw( LJ::Response ); + +__PACKAGE__->mk_accessors( qw( where status ) ); + +sub output { + my ($self) = @_; + + my $status = LJ::Request->redirect( $self->where ); + + unless ( $self->status ) { + $self->status($status); + } +} + +sub http_status { + my ($self) = @_; + return $self->status; +} + +1;