view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use strict;
use Module::Build;

my $build = Module::Build->new(
    create_makefile_pl => 'passthrough',
    license            => 'perl',
    module_name        => 'Catalyst::Engine::Server',
    requires           => {
        'Catalyst'       => 5.2,
        'HTTP::Parser'   => 0,
        'HTTP::Request'  => 0,
        'HTTP::Response' => 0,
        'Net::Server'    => 0
    },
    create_makefile_pl => 'passthrough',
    test_files   => [
        glob('t/*.t') 
    ],
    create_readme=>1,
);
$build->create_build_script;

META.yml  view on Meta::CPAN

version: 0.03
author:
  - 'Christian Hansen, C<ch@ngmedia.com>'
abstract: Catalyst Server Engine *DEPRECATED*
license: perl
resources:
  license: http://dev.perl.org/licenses/
requires:
  Catalyst: 5.2
  HTTP::Parser: 0
  HTTP::Request: 0
  HTTP::Response: 0
  Net::Server: 0
provides:
  Catalyst::Engine::Server:
    file: lib/Catalyst/Engine/Server.pm
    version: 0.03
  Catalyst::Engine::Server::Base:
    file: lib/Catalyst/Engine/Server/Base.pm
  Catalyst::Engine::Server::Fork:
    file: lib/Catalyst/Engine/Server/Fork.pm

lib/Catalyst/Engine/Server/Base.pm  view on Meta::CPAN

the same terms as Perl itself.

=cut

package Catalyst::Engine::Server::Net::Server;

use strict;
use base 'Class::Accessor::Fast';

use HTTP::Parser;
use HTTP::Request;
use HTTP::Response;

__PACKAGE__->mk_accessors('application');

sub configure_hook {
    my $self = shift;
    my $prop = $self->{server};

    my $config = $self->application->config->{server} || { };