view release on metacpan or  search on metacpan

lib/Auth/Kokolores/Plugin/DumpRequest.pm  view on Meta::CPAN

extends 'Auth::Kokolores::Plugin';


has 'success' => ( is => 'rw', isa => 'Int', default => 0);
has 'hide_server_obj' => ( is => 'rw', isa => 'Int', default => 1);

use Data::Dumper;

sub authenticate {
  my ( $self, $r ) = @_;
  my $sort_keys_backup;

  if( $self->hide_server_obj ) {
    $sort_keys_backup = $Data::Dumper::Sortkeys;
    $Data::Dumper::Sortkeys = sub {
      my ($hash) = @_;
      return [ grep { $_ ne 'server' } keys %$hash ];
    };
  }

  $r->log(4, 'request data: '.Dumper($r) );

  if( $self->hide_server_obj ) {
    $Data::Dumper::Sortkeys = $sort_keys_backup;
  }

  return $self->success;
}

1;

__END__

=pod