view release on metacpan or  search on metacpan

lib/HTTP/Session/State/Mixin/ResponseFilter.pm  view on Meta::CPAN

            while ( my ( $key, $val ) = splice @headers, 0, 2 ) {
                if (lc($key) eq 'location') {
                    $val = $self->redirect_filter($session_id, $val);
                }
                push @new_headers, $key, $val;
            }
            $res->[1] = \@new_headers;
            return $res;
        } elsif (my $body = $res->[2]) {
            if ( ref $body eq 'ARRAY' ) {
                # TODO: look the content-type header.
                my $content = '';
                for my $line (@$body) {
                    $content .= $line if length $line;
                }
                $res->[2] = [$self->html_filter($session_id, $content)];
                return $res;
            } else { # HTTP::Session should not process glob.
                return $res;
            }
        } else {