projects
/
catagits/Catalyst-Runtime.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Make request->body fail when used as a writer.
[catagits/Catalyst-Runtime.git]
/
lib
/
Catalyst
/
Request.pm
diff --git
a/lib/Catalyst/Request.pm
b/lib/Catalyst/Request.pm
index
30d7be4
..
9c9705e
100644
(file)
--- a/
lib/Catalyst/Request.pm
+++ b/
lib/Catalyst/Request.pm
@@
-110,7
+110,7
@@
has _body => (
sub body {
my $self = shift;
$self->_context->prepare_body();
- $self->_body(@_) if scalar @_;
+ croak 'body is a reader' if scalar @_;
return blessed $self->_body ? $self->_body->body : $self->_body;
}