cvs commit: modperl/lib/Apache RegistryNG.pm

[do...@hyperreal.org]

dougm       98/09/22 07:04:03

  Added:       lib/Apache RegistryNG.pm
  Log:
  Apache::Registry - Next Generation, uses Apache::PerlRun, subclass-able, etc.
  
  Revision  Changes    Path
  1.1                  modperl/lib/Apache/RegistryNG.pm
  
  Index: RegistryNG.pm
  ===================================================================
  package Apache::RegistryNG;
  
  use Apache::PerlRun ();
  use Apache::Constants qw(:common);
  use strict;
  use vars qw($VERSION @ISA);
  $VERSION = '1.00';
  @ISA = qw(Apache::PerlRun);
  
  sub handler ($$) {
      my($class, $r);
      if(@_ == 1) {
  	($class, $r) = (__PACKAGE__, @_);
      }
      else {
  	($class, $r) = (shift,shift);
      }
      my $pr = $class->new($r);
  
      my $rc = $pr->can_compile;
      return $rc unless $rc == OK;
  
      local $^W = $^W;
  
      my $package = $pr->namespace;
      $pr->set_script_name;
      $pr->chdir_file;
  
      if($pr->should_compile) {
  	$pr->readscript;
          $pr->parse_cmdline;
  	$pr->sub_wrap;
  	my $rc = $pr->compile;
          return $rc if $rc != OK;
  	$pr->update_mtime;
      }
  
      $rc = $pr->run(@_);
      $pr->chdir_file("$Apache::Server::CWD/");
      return $rc != OK ? $rc : $pr->status;
  }
  
  1;
  
  __END__