home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / xampp / xampp-perl-addon-1.4.9-installer.exe / TestReportPerl.pm < prev    next >
Encoding:
Perl POD Document  |  2004-06-27  |  1.1 KB  |  40 lines
  1. # Copyright 2001-2004 The Apache Software Foundation
  2. #
  3. # Licensed under the Apache License, Version 2.0 (the "License");
  4. # you may not use this file except in compliance with the License.
  5. # You may obtain a copy of the License at
  6. #
  7. #     http://www.apache.org/licenses/LICENSE-2.0
  8. #
  9. # Unless required by applicable law or agreed to in writing, software
  10. # distributed under the License is distributed on an "AS IS" BASIS,
  11. # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  12. # See the License for the specific language governing permissions and
  13. # limitations under the License.
  14. #
  15. package Apache::TestReportPerl;
  16.  
  17. use strict;
  18. use warnings FATAL => 'all';
  19.  
  20. use Apache::TestReport ();
  21. use ModPerl::Config ();
  22.  
  23. # a subclass of Apache::TestReport that generates a bug report script
  24. use vars qw(@ISA);
  25. @ISA = qw(Apache::TestReport);
  26.  
  27. sub config {
  28.     ModPerl::Config::as_string();
  29. }
  30.  
  31. sub report_to {
  32.     my $self = shift;
  33.     my $pkg  = ref $self;
  34.     die "you need to implement $pkg\::report_to() to return the " .
  35.         "contact email address of your project";
  36. }
  37.  
  38. 1;
  39. __END__
  40.