diff options
author | Eric Wong <e@80x24.org> | 2016-12-03 00:24:05 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-12-03 00:29:06 +0000 |
commit | 21f5b7a8bcd942b19475c1c0c265f39dfdf93608 (patch) | |
tree | 4cc33503514da33ed0b389225870746a0075594e /lib/PublicInbox/WwwStream.pm | |
parent | a0dabfcfce1f4dfc874ce933b416713007ab67bf (diff) | |
download | public-inbox-21f5b7a8bcd942b19475c1c0c265f39dfdf93608.tar.gz |
Hopefully this makes the code more readable for newbies.
Diffstat (limited to 'lib/PublicInbox/WwwStream.pm')
-rw-r--r-- | lib/PublicInbox/WwwStream.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/PublicInbox/WwwStream.pm b/lib/PublicInbox/WwwStream.pm index 12f5fa57..01f7b31b 100644 --- a/lib/PublicInbox/WwwStream.pm +++ b/lib/PublicInbox/WwwStream.pm @@ -12,6 +12,7 @@ our $TOR2WEB_URL = 'https://www.tor2web.org/'; our $CODE_URL = 'https://public-inbox.org/'; our $PROJECT = 'public-inbox'; +# noop for HTTP.pm (and any other PSGI servers) sub close {} sub new { @@ -111,14 +112,15 @@ sub _html_end { ).'</pre></body></html>'; } +# callback for HTTP.pm (and any other PSGI servers) sub getline { my ($self) = @_; my $nr = $self->{nr}++; return _html_top($self) if $nr == 0; - if (my $mid = $self->{cb}) { # middle - $mid = $mid->($nr, $self->{ctx}) and return $mid; + if (my $middle = $self->{cb}) { + $middle = $middle->($nr, $self->{ctx}) and return $middle; } delete $self->{cb} ? _html_end($self) : undef; |