use strict;
use base 'Class::Accessor::Fast';
+use IO::Socket qw[AF_INET inet_aton];
+
__PACKAGE__->mk_accessors(
- qw/action address arguments body base cookies headers hostname match
- method parameters path protocol secure snippets uploads user/
+ qw/action address arguments body base cookies headers match method
+ parameters path protocol secure snippets uploads user/
);
*args = \&arguments;
=item $req->hostname
-Contains the hostname of the remote user.
+Lookup the current users DNS hostname.
print $c->request->hostname
+
+=cut
+
+sub hostname {
+ my $self = shift;
+
+ if ( @_ == 0 && not $self->{hostname} ) {
+ $self->{hostname} = gethostbyaddr( inet_aton( $self->address ), AF_INET );
+ }
+
+ if ( @_ == 1 ) {
+ $self->{hostname} = shift;
+ }
+
+ return $self->{hostname};
+}
=item $req->input
if ( @_ > 1 ) {
while ( my ( $field, $value ) = splice( @_, 0, 2 ) ) {
+
+ next unless defined $field;
if ( exists $self->parameters->{$field} ) {
for ( $self->parameters->{$field} ) {