From 858d1a75a8dcb4f2865c2d92a8526f9b9bad1945 Mon Sep 17 00:00:00 2001
From: John Beppu <john.beppu@gmail.com>
Date: Mon, 27 Sep 2010 18:04:10 -0700
Subject: [PATCH] s/\$app/$p/g in the import method for perl golf

---
 lib/Squatting.pm | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/lib/Squatting.pm b/lib/Squatting.pm
index 08ab8e6..211c69c 100644
--- a/lib/Squatting.pm
+++ b/lib/Squatting.pm
@@ -20,9 +20,8 @@ require Squatting::View;
 # use App ':views'
 # use App @PLUGINS
 sub import {
-  my $m   = shift;
-  my $p   = (caller)[0];
-  my $app = $p;
+  my $m = shift;
+  my $p = (caller)[0];
 
   if (@_) {
     return $m->load_components(grep /::/, @_);
@@ -37,8 +36,8 @@ sub import {
     if (@args && ref($args[-1]) eq 'HASH') {
       $input = pop(@args);
     }
-    my $c = ${$app."::Controllers::C"}{$controller};
-    croak "$controller controller not found in '\%$app\::Controllers::C" unless $c;
+    my $c = ${$p."::Controllers::C"}{$controller};
+    croak "$controller controller not found in '\%$p\::Controllers::C" unless $c;
     my $arity = @args;
     my $path = first { my @m = /\(.*?\)/g; $arity == @m } @{$c->urls};
     croak "couldn't find a matching URL path" unless $path;
@@ -58,10 +57,10 @@ sub import {
   };
 
   # ($controller, \@regex_captures) = D($path)  # Return controller and captures for a path
-  *{$app."::D"} = sub {
+  *{$p."::D"} = sub {
     no warnings 'once';
     my $url = uri_unescape($_[0]);
-    my $C = \@{$app.'::Controllers::C'};
+    my $C = \@{$p.'::Controllers::C'};
     my ($c, @regex_captures);
     for $c (@$C) {
       for (@{$c->urls}) {
@@ -72,10 +71,10 @@ sub import {
       }
     }
     ($Squatting::Controller::r404, []);
-  } unless exists ${$app."::"}{D};
+  } unless exists ${$p."::"}{D};
 
   *{$p."::Controllers::C"} = sub {
-    Squatting::Controller->new(@_, app => $app);
+    Squatting::Controller->new(@_, app => $p);
   };
   *{$p."::Views::V"} = sub {
     Squatting::View->new(@_);