Permalink
Browse files

apply qw// changes from Duncan Garland to fix perl 5.14 warnings

  • Loading branch information...
beppu committed Aug 12, 2013
1 parent 3807480 commit f8a614626a6a419d29af72303a930a7d65663c1b
Showing with 2 additions and 2 deletions.
  1. +2 −2 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}->(@_) }
}

0 comments on commit f8a6146

Please sign in to comment.