Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Merge branch 'master' of github.com:beppu/squatting

  • Loading branch information...
commit 38074808f17bb3ef0f30bc5c09e99610c579e9ec 2 parents eef08d4 + dc56bb3
@beppu authored
Showing with 3 additions and 2 deletions.
  1. +1 −0  lib/Squatting.pm
  2. +2 −2 lib/Squatting/Controller.pm
View
1  lib/Squatting.pm
@@ -139,6 +139,7 @@ sub service {
my $content;
eval { $content = $c->$method(@args) };
+ die $@ if (ref($@) =~ /^HTTP::Exception/); # Pass HTTP::Exceptions on up
warn "EXCEPTION: $@" if ($@);
my $cookies = $c->cookies;
View
4 lib/Squatting/Controller.pm
@@ -30,12 +30,12 @@ sub clone {
# view - name of default view
# log - logging object
# app - name of our app
-for my $m qw(name urls cr env input cookies state v status headers log view app) {
+for my $m (qw(name urls cr env input cookies state v status headers log view app)) {
*{$m} = sub : lvalue { $_[0]->{$m} }
}
# HTTP methods
-for my $m qw(get post head put delete options trace connect) {
+for my $m (qw(get post head put delete options trace connect)) {
*{$m} = sub { $_[0]->{$m}->(@_) }
}
Please sign in to comment.
Something went wrong with that request. Please try again.