oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove empty comments and fix POD.

Browse source
This commit is contained in:
Colin Kuskie 2012-01-01 11:48:14 -08:00
parent 6a6f839e84
commit 61e17054c5
1 changed files with 3 additions and 67 deletions
Download patch file Download diff file Expand all files Collapse all files

70
lib/WebGUI/Session/Response.pm
View file

@ -25,10 +25,6 @@ is created.
=cut
#
#
#
=head2 stream
=cut
@ -39,10 +35,6 @@ sub stream {
$self->streaming(1);
}
#
#
#
=head2 stream_write
=cut
@ -56,10 +48,6 @@ sub stream_write {
$self->writer->write(@_);
}
#
#
#
=head2 sendHeader ( )
Generates and sends HTTP headers for a response.
@ -127,10 +115,6 @@ sub _sendMinimalHeader {
return undef;
}
#
#
#
=head2 setCookie ( name, value [ , timeToLive, domain ] )
Sends a cookie to the browser.
@ -170,10 +154,6 @@ sub setCookie {
};
}
#
#
#
=head2 setRedirect ( url, [ type ] )
Sets the necessary information in the HTTP header to redirect to another URL.
@ -201,10 +181,6 @@ sub setRedirect {
$self->session->style->setMeta({"http-equiv"=>"refresh",content=>"0; URL=".$url});
}
#
#
#
=head2 getLastModified ( )
Returns the stored epoch date when the page as last modified.
@ -216,10 +192,6 @@ sub getLastModified {
return $self->{_http}{lastModified};
}
#
#
#
=head2 setLastModified ( epoch )
=head3 epoch
@ -234,10 +206,6 @@ sub setLastModified {
$self->{_http}{lastModified} = $epoch;
}
#
#
#
=head2 getNoHeader ( )
Returns whether or not a HTTP header will be printed.
@ -249,10 +217,6 @@ sub getNoHeader {
return $self->{_http}{noHeader};
}
#
#
#
=head2 setNoHeader ( boolean )
Disables the printing of a HTTP header. Useful in situations when content is not
@ -269,10 +233,6 @@ sub setNoHeader {
$self->{_http}{noHeader} = shift;
}
#
#
#
=head2 isRedirect ( )
Returns a boolean value indicating whether the current page will redirect to some other location.
@ -285,10 +245,6 @@ sub isRedirect {
return $status == 302 || $status == 301;
}
#
#
#
=head2 getStreamedFile ( ) {
Returns the location of a file to be streamed thru mod_perl, if one has been set.
@ -300,14 +256,11 @@ sub getStreamedFile {
return $self->{_http}{streamlocation} || undef;
}
#
#
#
=head2 setStreamedFile ( ) {
Set a file to be streamed through mod_perl.
Rrequires that C<enableStreamingUploads> be set in the config file and then
Set a file to be streamed.
Requires that C<enableStreamingUploads> be set in the config file and then
some middleware or reverse-proxy in front of L<WebGUI> to catch the X-Sendfile
headers and replace that with the file to be sent.
@ -340,10 +293,6 @@ sub setStreamedFile {
}
#
#
#
=head2 sendFile ( ) {
Either redirect (C<setRedirect()>) or trigger a stream (C<setStreamedFile()>) depending on how L<WebGUI> is configured.
@ -367,10 +316,6 @@ sub sendFile {
1;
}
#
#
#
=head2 setCacheControl ( timeout )
Sets the cache control headers.
@ -387,10 +332,6 @@ sub setCacheControl {
$self->{_http}{cacheControl} = $timeout;
}
#
#
#
=head2 getCacheControl ( )
Returns the cache control setting from this object.
@ -408,10 +349,6 @@ Subclasses Plack::Response C<finalize()>, doing L<WebGUI> specific finalization
=cut
#
#
#
sub finalize {
my $self = shift;
@ -436,5 +373,4 @@ sub finalize {
}
1;