lib/CXGN/Apache/Registry.pm

   1 package CXGN::Apache::Registry;
   2 use strict;
   3 use warnings;
   4
   5 use base qw(ModPerl::RegistryPrefork);
   6 use SGN::Context;
   7
   8 # add a global $c variable to the top of every script for the context
   9 # object
  10 my $cxgn_script_header = <<'EOC';
  11 our $c = SGN::Context->instance;
  12 EOC
  13 sub get_mark_line {
  14     my $self = shift;
  15     return $cxgn_script_header.$self->SUPER::get_mark_line(@_);
  16 }
  17
  18 sub read_script {
  19     my $self = shift;
  20
  21     # keep site die handlers from interfering with proper 404 and 403
  22     # error handling
  23     local $SIG{__DIE__} = undef;
  24
  25     return $self->SUPER::read_script(@_);
  26 }
  27
  28
  29 1;
  30 __END__
  31
  32 =head1 NAME
  33
  34 CXGN::Apache::Registry - slightly customized subclass of L<ModPerl::RegistryPrefork>
  35
  36 =head1 DESCRIPTION
  37
  38 Adds a global
  39
  40   our $c = SGN::Context->instance
  41
  42 to the beginning of every script.
  43
  44 Localizes C<$SIG{__DIE__}> when reading script files from disk, to
  45 enable proper 404 and 403 handling in the presence of custom
  46 C<$SIG{__DIE__}> handlers.
  47
  48 =head1 Authors
  49
  50 Robert Buels
  51
  52 =cut