Mercurial > pub > Impl
diff Lib/IMPL/Web/Application/Action.pm @ 391:2287c72f303a
code cleanup
author | cin |
---|---|
date | Thu, 13 Feb 2014 20:17:22 +0400 |
parents | ec58c47edb52 |
children |
line wrap: on
line diff
--- a/Lib/IMPL/Web/Application/Action.pm Wed Feb 12 18:02:03 2014 +0400 +++ b/Lib/IMPL/Web/Application/Action.pm Thu Feb 13 20:17:22 2014 +0400 @@ -10,7 +10,8 @@ use IMPL::Web::CGIWrapper(); use IMPL::declare { require => { - Disposable => '-IMPL::Object::Disposable' + Disposable => '-IMPL::Object::Disposable', + HttpResponse => 'IMPL::Web::HttpResponse' }, base => [ 'IMPL::Object' => undef, @@ -154,6 +155,13 @@ return $path ? URI->new_abs($path,$this->applicationUrl) : $this->applicationUrl; } +sub Redirect { + my ($this,$path) = @_; + return HttpResponse->Redirect( + location => $this->CreateFullUrl($path) + ); +} + sub _launder { my ($this,$value,$rx) = @_;