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 [EMAIL PROTECTED]
+
+
+=cut
+
