cvsuser 02/07/24 12:57:10
Modified: P5EEx/Blue/P5EEx/Blue/Context HTTPHTML.pm
Log:
debugging support moved to base class from Context::HTTPHTML
Revision Changes Path
1.2 +24 -46 p5ee/P5EEx/Blue/P5EEx/Blue/Context/HTTPHTML.pm
Index: HTTPHTML.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Context/HTTPHTML.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- HTTPHTML.pm 12 Jul 2002 21:01:13 -0000 1.1
+++ HTTPHTML.pm 24 Jul 2002 19:57:09 -0000 1.2
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: HTTPHTML.pm,v 1.1 2002/07/12 21:01:13 spadkins Exp $
+## $Id: HTTPHTML.pm,v 1.2 2002/07/24 19:57:09 spadkins Exp $
#############################################################################
package P5EEx::Blue::Context::HTTPHTML;
@@ -59,51 +59,29 @@
#############################################################################
# init()
#############################################################################
-
-=head2 init()
-
-The init() method is called from within the standard Context constructor.
-
-The init() method sets debug flags.
-
- * Signature: $context->init($args)
- * Param: $args hash{string} [in]
- * Return: void
- * Throws: P5EEx::Blue::Exception
- * Since: 0.01
-
- Sample Usage:
-
- $context->init($args);
-
-=cut
-
-sub init {
- my ($self, $args) = @_;
- $args = {} if (!defined $args);
-
- #################################################################
- # DEBUGGING
- #################################################################
-
- # Supports the following command-line usage:
- # -debug=1 (global debug)
- # -debug=1,P5EEx::Blue::Context (debug class only)
- # -debug=3,P5EEx::Blue::Context,P5EEx::Blue::Session (multiple classes)
- # -debug=6,P5EEx::Blue::Repository::DBI.select_rows (individual methods)
- my ($debug, $pkg);
- $debug = $args->{debug};
- if (defined $debug && $debug ne "") {
- if ($debug =~ s/^([0-9]+),?//) {
- $P5EEx::Blue::DEBUG = $1;
- }
- if ($debug) {
- foreach $pkg (split(/,/,$debug)) {
- $self->{debugscope}{$pkg} = 1;
- }
- }
- }
-}
+#
+#=head2 init()
+#
+#The init() method is called from within the standard Context constructor.
+#
+#The init() method sets debug flags.
+#
+# * Signature: $context->init($args)
+# * Param: $args hash{string} [in]
+# * Return: void
+# * Throws: P5EEx::Blue::Exception
+# * Since: 0.01
+#
+# Sample Usage:
+#
+# $context->init($args);
+#
+#=cut
+#
+#sub init {
+# my ($self, $args) = @_;
+# $args = {} if (!defined $args);
+#}
#############################################################################
# PROTECTED METHODS
