support for request->referer and request->remote_address

leto · Feb 8, 2010 · 7aee100 · 7aee100
1 parent 86630b7
commit 7aee100
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/lib/Dancer/Request.pm b/lib/Dancer/Request.pm
@@ -19,11 +19,15 @@ Dancer::Request->attributes(
     'accept_language', 'accept_charset',
     'accept_encoding', 'keep_alive',
     'connection',      'accept',
+    'referer',
 );
 
 # aliases
-sub agent   { $_[0]->user_agent }
-sub referer { $_[0]->env->{'X_FORWARDED_FOR'} || $_[0]->env->{'REMOTE_ADDR'} }
+sub agent { $_[0]->user_agent }
+
+sub remote_address {
+    $_[0]->env->{'X_FORWARDED_FOR'} || $_[0]->env->{'REMOTE_ADDR'};
+}
 
 sub new {
     my ($class, $env) = @_;