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) = @_;