httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestReport.pm
Date Fri, 12 Dec 2003 06:56:22 GMT
stas        2003/12/11 22:56:22

  Modified:    perl-framework/Apache-Test/lib/Apache TestReport.pm
  Log:
  move the template out of DATA to a subroutine, start a basic pod for this class
  
  Revision  Changes    Path
  1.10      +47 -7     httpd-test/perl-framework/Apache-Test/lib/Apache/TestReport.pm
  
  Index: TestReport.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestReport.pm,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -u -r1.9 -r1.10
  --- TestReport.pm	14 May 2003 02:53:54 -0000	1.9
  +++ TestReport.pm	12 Dec 2003 06:56:22 -0000	1.10
  @@ -68,13 +68,7 @@
   sub date { scalar gmtime() . " GMT" }
   
   sub template {
  -    local $/ = undef;
  -    <DATA>;
  -}
  -
  -1;
  -__DATA__
  -
  +<<'EOI'
   -------------8<---------- Start Bug Report ------------8<----------
   1. Problem Description:
   
  @@ -93,3 +87,49 @@
   -------------8<---------- End Bug Report --------------8<----------
   
   @POSTIT_NOTE@
  +
  +EOI
  +
  +}
  +
  +1;
  +__END__
  +
  +=head1 Name
  +
  +Apache::TestReport - A parent class for generating bug/success reports
  +
  +=head1 Synopsis
  +
  +  use Apache::TestReport;
  +  Apache::TestReport->new(@ARGV)->run;
  +
  +=head1 Description
  +
  +This class is used to generate a bug or a success report, providing
  +information about the system the code was running on.
  +
  +=head1 Overridable Methods
  +
  +=head2 config
  +
  +return the information about user's system
  +
  +=head2 report_to
  +
  +return a string containing the email address the report should be sent
  +to
  +
  +=head2 postit_note
  +
  +return a string to close the report with, e.g.:
  +
  +      my($to, $where) = split '@', $self->report_to;
  +      return <<EOF;
  +  Note: Complete the rest of the details and post this bug report to
  +  $to <at> $where. To subscribe to the list send an empty
  +  email to $to-subscribe\@$where.
  +
  +
  +=cut
  +
  
  
  

Mime
View raw message