Permalink
Browse files

might as well handle a few other http methods

  • Loading branch information...
beppu committed Apr 10, 2011
1 parent 4a16ff4 commit a4a754c67f1e4fc75ea3111aff2897246b87fb43
Showing with 1 addition and 1 deletion.
  1. +1 −1 bin/squatting
View
@@ -110,7 +110,7 @@ if ($app) {
$self->{status} = 200;
$self;
};
foreach my $method qw(get post) {
foreach my $method qw(get post put delete) {
*{$app."::$method" } = sub {
my $cc = ${$app."::Controllers::C"}{$_[1]}->clone->mock_init(@_[2..$#_]);
$cc->env->{REQUEST_METHOD} = $method;

0 comments on commit a4a754c

Please sign in to comment.