X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FLoader.pm;fp=lib%2FCatalyst%2FEngine%2FLoader.pm;h=0000000000000000000000000000000000000000;hp=d2b54a4cf46d8772f854784829c236079514c5d1;hb=b1ededd4680eff1d4ddb42ed860884e361804fe1;hpb=2cd94c07345b019229812aa37662a691ec7d9077

diff --git a/lib/Catalyst/Engine/Loader.pm b/lib/Catalyst/Engine/Loader.pm
deleted file mode 100644
index d2b54a4..0000000
--- a/lib/Catalyst/Engine/Loader.pm
+++ /dev/null
@@ -1,120 +0,0 @@
-package Catalyst::Engine::Loader;
-use Moose;
-use Catalyst::Exception;
-use Catalyst::Utils;
-use namespace::autoclean;
-
-extends 'Plack::Loader';
-
-has application_name => (
-    isa => 'Str',
-    is => 'ro',
-    required => 1,
-);
-
-has catalyst_engine_class => (
-    isa => 'Str',
-    is => 'rw',
-    lazy => 1,
-    builder => '_guess_catalyst_engine_class',
-);
-
-sub _guess_catalyst_engine_class {
-    my $self = shift;
-    my $old_engine = Catalyst::Utils::env_value($self->application_name, 'ENGINE');
-    if (!defined $old_engine) {
-        return 'Catalyst::Engine';
-    }
-    elsif ($old_engine =~ /^(CGI|FCGI|HTTP|Apache.*)$/) {
-        return 'Catalyst::Engine';
-    }
-    else {
-        return 'Catalyst::Engine::' . $old_engine;
-    }
-}
-
-around guess => sub {
-    my ($orig, $self) = (shift, shift);
-    my $engine = $self->$orig(@_);
-    if ($engine eq 'Standalone') {
-        if ( $ENV{MOD_PERL} ) {
-            my ( $software, $version ) =
-              $ENV{MOD_PERL} =~ /^(\S+)\/(\d+(?:[\.\_]\d+)+)/;
-            $version =~ s/_//g;
-            $version =~ s/(\.[^.]+)\./$1/g;
-
-            if ( $software eq 'mod_perl' ) {
-                if ( $version >= 1.99922 ) {
-                    $engine = 'Apache2';
-                }
-
-                elsif ( $version >= 1.9901 ) {
-                    Catalyst::Exception->throw( message => 'Plack does not have a mod_perl 1.99 handler' );
-                    $engine = 'Apache2::MP19';
-                }
-
-                elsif ( $version >= 1.24 ) {
-                    $engine = 'Apache1';
-                }
-
-                else {
-                    Catalyst::Exception->throw( message =>
-                          qq/Unsupported mod_perl version: $ENV{MOD_PERL}/ );
-                }
-            }
-        }
-    }
-
-    my $old_engine = Catalyst::Utils::env_value($self->application_name, 'ENGINE');
-    if (!defined $old_engine) { # Not overridden
-    }
-    elsif ($old_engine =~ /^(CGI|FCGI|HTTP|Apache.*)$/) {
-        # Trust autodetect
-    }
-    elsif ($old_engine eq "HTTP::Prefork") { # Too bad if you're customising, we don't handle options
-                                             # write yourself a script to collect and pass in the options
-        $engine = "Starman";
-    }
-    elsif ($old_engine eq "HTTP::POE") {
-        Catalyst::Exception->throw("HTTP::POE engine no longer works, recommend you use Twiggy instead");
-    }
-    elsif ($old_engine eq "Zeus") {
-        Catalyst::Exception->throw("Zeus engine no longer works");
-    }
-    else {
-        warn("You asked for an unrecognised engine '$old_engine' which is no longer supported, this has been ignored.\n");
-    }
-
-    return $engine;
-};
-
-# Force constructor inlining
-__PACKAGE__->meta->make_immutable( replace_constructor => 1 );
-
-1;
-
-__END__
-
-=head1 NAME
-
-Catalyst::Engine::Loader - The Catalyst Engine Loader
-
-=head1 SYNOPSIS
-
-See L<Catalyst>.
-
-=head1 DESCRIPTION
-
-Wrapper on L<Plack::Loader> which resets the ::Engine if you are using some
-version of mod_perl.
-
-=head1 AUTHORS
-
-Catalyst Contributors, see Catalyst.pm
-
-=head1 COPYRIGHT
-
-This library is free software. You can redistribute it and/or modify it under
-the same terms as Perl itself.
-
-=cut