delete $ctx->{env}->{'qspawn.wcb'};
$ctx->{env}->{'plack.skip-deflater'} = 1; # prevent 2x gzip
my $res = $ctx->{www}->coderepo->srv(\%ctx);
- if (ref($res) eq 'CODE') {
- $res->(delete $ctx{env}->{'qspawn.wcb'});
- } else { # ref($res) eq 'ARRAY'
- $ctx->{env}->{'qspawn.wcb'} = $ctx{env}->{'qspawn.wcb'};
- }
- $res; # non ARRAY ref for ->psgi_return_init_cb
+ # for ->psgi_return_init_cb:
+ $ctx->{env}->{'qspawn.wcb'} = $ctx{env}->{'qspawn.wcb'};
+ $res; # CODE or ARRAY ref
} else {
[ $code, \@h ]
}
$self->{rpipe}->close;
event_step($self);
}
- $wcb->($r) if ref($r) eq 'ARRAY';
+ if (ref($r) eq 'ARRAY') { # error
+ $wcb->($r)
+ } elsif (ref($r) eq 'CODE') { # chain another command
+ $r->($wcb)
+ }
+ # else do nothing
} elsif ($async) {
# done reading headers, handoff to read body
my $fh = $wcb->($r); # scalar @$r == 2