view release on metacpan or  search on metacpan

lib/Alice/HTTP/Request.pm  view on Meta::CPAN

package Alice::HTTP::Request;

use Alice::HTTP::Response;
use Encode;

use parent 'Plack::Request';

sub new {
  my($class, $env, $cb) = @_;

  Carp::croak(q{$env is required})

lib/Alice/HTTP/Server.pm  view on Meta::CPAN

use AnyEvent;
use AnyEvent::HTTP;

use Fliggy::Server;
use Plack::Builder;
use Plack::Middleware::Static;
use Plack::Session::Store::File;
use Plack::Session::State::Cookie;

use Alice::HTTP::Request;
use Alice::HTTP::Stream::XHR;
use Alice::HTTP::Stream::WebSocket;

use JSON;
use Encode;
use Any::Moose;

has app => (
  is  => 'ro',
  isa => 'Alice',

lib/Alice/HTTP/Server.pm  view on Meta::CPAN

    );
  };

  AE::log(warn => $@) if $@;
  return $httpd;
}

sub dispatch {
  my ($self, $env, $cb) = @_;

  my $req = Alice::HTTP::Request->new($env, $cb);
  my $res = $req->new_response(200);

  AE::log trace => $req->path;

  if ($self->auth_enabled) {
    unless ($req->path eq "/login" or $self->is_logged_in($req)) {
      $self->auth_failed($req, $res);
      return;
    }
  }