Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

mod_perl engine isnt' needed because I use Plack server.

  • Loading branch information...
commit 0c17cdf0dad7da757b328c36b9285293e25f5018 1 parent f4f0403
Dann authored
1  angelos-core/lib/Angelos/Engine/Base.pm
View
@@ -76,6 +76,7 @@ sub build_engine {
},
request_handler => $request_handler,
request_class => 'Angelos::Request',
+ middlewares => [],
}
);
return $engine;
60 angelos-core/lib/Angelos/Engine/ModPerl.pm
View
@@ -1,60 +0,0 @@
-package Angelos::Engine::ModPerl;
-use Angelos::Class;
-extends 'HTTP::Engine::Interface::ModPerl';
-
-sub create_engine {
- my ( $class, $r, $context_key ) = @_;
- my $app_class = $class->_load_app_class;
- my $app = $app_class->new( server => 'ModPerl' );
- $app->setup;
- return $app->engine->engine;
-}
-
-sub _load_app_class {
- my $app_class = $ENV{ANGELOS_APP_CLASS};
- Mouse::load_class($app_class);
- $app_class;
-}
-
-__END_OF_CLASS__
-
-__END__
-
-=head1 NAME
-
- Angelos::Engine::ModPerl-
-
-=head1 SYNOPSIS
-
- <VirtualHost *:80>
- ServerName angelos.org
- DocumentRoot /var/www/myapp
-
- <Perl>
- use lib qw(/var/www/myapp/lib);
- </Perl>
- <Location /modperl/angelos>
- SetHandler modperl
- PerlOptions +SetupEnv
- PerlSetEnv ANGELOS_APP_CLASS MyApp
- PerlResponseHandler Angelos::Engine::ModPerl
- </Location>
- </VirtualHost>
-
-=head1 DESCRIPTION
-
-
-=head1 AUTHOR
-
-Takatoshi Kitano E<lt>kitano.tk@gmail.comE<gt>
-
-=head1 SEE ALSO
-
-=head1 LICENSE
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
-
-
60 angelos-core/lib/Angelos/Engine/ModPerl/Lite.pm
View
@@ -1,60 +0,0 @@
-package Angelos::Engine::ModPerl::Lite;
-use Angelos::Class;
-extends 'HTTP::Engine::Interface::ModPerl';
-
-sub create_engine {
- my ( $class, $r, $context_key ) = @_;
- $class->_setup_home;
- my $handler_class = $class->_load_handler_class;
- my $handler = $handler_class->new( server => 'ModPerl' );
- return $handler->engine;
-}
-
-sub _load_handler_class {
- my $handler_class = $ENV{ANGELOS_HANDLER_CLASS};
- Mouse::load_class($handler_class);
- $handler_class;
-}
-
-sub _setup_home {
- $ENV{ANGELOS_HOME} = $ENV{DOCUMENT_ROOT};
-}
-
-__END_OF_CLASS__
-
-__END__
-
-=head1 SYNOPSIS
-
- <VirtualHost *:80>
- ServerName angelos.org
- DocumentRoot /var/www/myapp
-
- <Perl>
- use lib qw(/var/www/myapp/lib);
- </Perl>
- <Location /modperl/angelos>
- SetHandler modperl
- PerlOptions +SetupEnv
- PerlSetEnv ANGELOS_HANDLER_CLASS MyApp::Handler::Sample
- PerlResponseHandler Angelos::Engine::ModPerl::Lite
- </Location>
- </VirtualHost>
-
-=head1 DESCRIPTION
-
-
-=head1 AUTHOR
-
-Takatoshi Kitano E<lt>kitano.tk@gmail.comE<gt>
-
-=head1 SEE ALSO
-
-=head1 LICENSE
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
-
-
Please sign in to comment.
Something went wrong with that request. Please try again.