Catalyst::Response warns a little too aggressively?
In Catalyst::Response we have:
before [qw(status headers content_encoding content_length content_type header)] => sub {
my $self = shift;
$self->_context->log->warn(
"Useless setting a header value after finalize_headers and the response callback has been called." .
" Not what you want." )
if ( $self->_context && $self->finalized_headers && !$self->_has_response_cb && @_ );
};
But that warns even if you're just examining something like:
my $sent = $res->header->("Some-Header");
Shouldn't that only warn if actually modifying some data?
Thanks,
-- Matthew Horsfall (alh)
RT for rt.cpan.org