Permalink
Browse files

more incorrect hacking to make console experience better

  • Loading branch information...
beppu committed Apr 10, 2011
1 parent 1b96560 commit 4a16ff4111aa8fb5f1600d3eaa2534819174352e
Showing with 3 additions and 1 deletion.
  1. +3 −1 bin/squatting
View
@@ -114,7 +114,9 @@ if ($app) {
*{$app."::$method" } = sub {
my $cc = ${$app."::Controllers::C"}{$_[1]}->clone->mock_init(@_[2..$#_]);
$cc->env->{REQUEST_METHOD} = $method;
- #my $content = $cc->$method(@_[2..$#_]);
+ if (ref($_[-1]) eq 'HASH') {
+ $cc->input = pop @_;
+ }
my $content = $app->service($cc, @_[2..$#_]);
($cc, $content);
};

0 comments on commit 4a16ff4

Please sign in to comment.