Write a bunch of POD for modules that don't have it.

This commit is contained in:
Colin Kuskie 2010-08-26 14:39:13 -07:00
parent 713d3dc801
commit 0b5d4e4614
6 changed files with 65 additions and 5 deletions

View file

@ -18,12 +18,20 @@ is created.
=cut
=head2 stream
=cut
sub stream {
my $self = shift;
$self->streamer(shift);
$self->streaming(1);
}
=head2 stream_write
=cut
sub stream_write {
my $self = shift;
if (!$self->streaming) {
@ -33,4 +41,4 @@ sub stream_write {
$self->writer->write(@_);
}
1;
1;