home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / RegistryBB.pm < prev    next >
Encoding:
Perl POD Document  |  2002-08-15  |  534 b   |  25 lines
  1. package ModPerl::RegistryBB;
  2.  
  3. use strict;
  4. use warnings FATAL => 'all';
  5.  
  6. # we try to develop so we reload ourselves without die'ing on the warning
  7. no warnings qw(redefine); # XXX, this should go away in production!
  8.  
  9. our $VERSION = '1.99';
  10.  
  11. use base qw(ModPerl::RegistryCooker);
  12.  
  13. sub handler : method {
  14.     my $class = (@_ >= 2) ? shift : __PACKAGE__;
  15.     my $r = shift;
  16.     return $class->new($r)->default_handler();
  17. }
  18.  
  19. # currently all the methods are inherited through the normal ISA
  20. # search may
  21.  
  22. 1;
  23. __END__
  24.  
  25.