Changeset 10545

Timestamp:

04/27/08 15:48:25 (7 months ago)

Author:

tokuhirom

Message:

finished は動的に判断可能

Files:

• lang/perl/Nanto/trunk/lib/Nanto/Role/Context.pm (modified) (2 diffs)

lang/perl/Nanto/trunk/lib/Nanto/Role/Context.pm

@@ -11 +11 @@
     is  => 'rw',
     isa => 'HTTP::Engine::Response',
-);
-
-has finished => (
-    is      => 'rw',
-    isa     => 'Bool',
-    default => 0,
 );
 
@@ -40 +34 @@
 }
 
-sub is_post_request {
+sub finished {
     my ($self, ) = @_;
-    return uc($self->req->method) eq 'POST';
-}
-
-sub redirect {
-    my ($self, $uri) = @_;
-    $self->res->redirect($uri);
-    $self->finished(1);
+    return 1 if $self->req->method eq 'HEAD';
+    return 1 if $self->res->body    && length( $self->res->body );
+    return 1 if $self->res->status =~ /^(?:204|3\d\d)$/;
+    return 0;
 }