NAME
    Sledge::Authorizer::BasicAuth - Basic Authentication module for Sledge

SYNOPSIS
      package Your::Authorizer;
      use base qw(Sledge::Authorizer::BasicAuth);
      use Your::Data::User;

      __PACKAGE__->error_template('/401.html');
      __PACKAGE__->realm('SECRET PAGE');

      sub authorize {
          my $self = shift;
          my $page = shift;
     
          return if $page->session->param('user');
     
          my ($login_id, $passwd) = $self->basic_auth($page) or return;
     
          my $user = Your::Data::User->search(login_id => $login_id, passwd => $passwd)->first;
          if ($user) {
              $page->session->param(user => $user);
          } else {
              $self->show_error_page($page);
          }
      }

DESCRIPTION
    Sledge::Authorizer::BasicAuth is Basic Authentication module for Sledge.

AUTHOR
    MATSUNO Tokuhiro <tokuhirom@gmail.com>

    This library is free software; you can redistribute it and/or modify it
    under the same terms as Perl itself.

THANKS TO
    Tatsuhiko Miyagawa.

SEE ALSO
    Bundle::Sledge

