Remove empty comments and fix POD.

perlDreamer · perlDreamer · commit 61e17054c503 · 2012-01-01T11:48:14.000-08:00
diff --git a/lib/WebGUI/Session/Response.pm b/lib/WebGUI/Session/Response.pm
@@ -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;
