method was never documented and is new so this should not be scary. If you
were using $request->has_io_fh, change to ->_has_io_fh (but please consider
a different way to do what you are doing...)
+ - make predicate on ->write_fh private. Potentially breaking change, but this
+ method was never documented and is new so this should not be scary. If you
+ were using $response->has_write_fh, change to ->_has_write_fh (but please consider
+ a different way to do what you are doing...)
+
5.90049_006 - 2013-11-04
- Fixed case where test could fail when Starman was partly installed (n0body++)
sub finalize_body {
my ( $self, $c ) = @_;
- return if $c->response->has_write_fh;
+ return if $c->response->_has_write_fh;
my $body = $c->response->body;
no warnings 'uninitialized';
has write_fh => (
is=>'ro',
- predicate=>'has_write_fh',
+ predicate=>'_has_write_fh',
lazy=>1,
builder=>'_build_write_fh',
);
sub DEMOLISH {
my $self = shift;
- return if $self->has_write_fh;
+ return if $self->_has_write_fh;
if($self->_has_writer) {
$self->_writer->close
}