cvsuser 02/05/24 10:22:42
Modified: P5EEx/Blue/P5EEx/Blue P5EE.pm
Log:
began adding detailed conditions to support the test scripts
Revision Changes Path
1.13 +26 -7 p5ee/P5EEx/Blue/P5EEx/Blue/P5EE.pm
Index: P5EE.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/P5EE.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -w -r1.12 -r1.13
--- P5EE.pm 10 May 2002 21:07:35 -0000 1.12
+++ P5EE.pm 24 May 2002 17:22:42 -0000 1.13
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: P5EE.pm,v 1.12 2002/05/10 21:07:35 spadkins Exp $
+## $Id: P5EE.pm,v 1.13 2002/05/24 17:22:42 spadkins Exp $
#############################################################################
package P5EEx::Blue::P5EE;
@@ -244,10 +244,7 @@
=head2 use()
-The use() method loads additional perl code and enables aspect-oriented
-programming (AOP) features if they are appropriate.
-
- * Signature: P5EEx::Blue->use($class);
+ * Signature: P5EEx::Blue::P5EE->use($class);
* Param: $class string [in]
* Return: void
* Throws: <none>
@@ -255,7 +252,29 @@
Sample Usage:
- P5EEx::Blue->use("P5EEx::Blue::Widget::Entity");
+ P5EEx::Blue::P5EE->use("P5EEx::Blue::Widget::Entity");
+
+The use() method loads additional perl code and enables aspect-oriented
+programming (AOP) features if they are appropriate. If these did not
+need to be turned on or off, it would be easier to simply use the
+following.
+
+ eval "use $class;"
+
+The first AOP
+feature planned is the printing of arguments on entry to a method and
+the printing of arguments and return values on exit of a a method.
+
+This is useful
+for debugging and the generation of object-message traces to validate
+or document the flow of messages through the system.
+
+Detailed Conditions:
+
+ * use(001) class does not exist: throw a P5EEx::Blue::Exception
+ * use(002) class never used before: should succeed
+ * use(003) class used before: should succeed
+ * use(004) can use class after: should succeed
=cut
@@ -263,7 +282,7 @@
my (%class_aop_enabled, %class_aop_instrumented);
my ($aop_entry, $aop_exit, @advice);
-sub use {
+sub use ($) {
my ($self, $class) = @_;
return if (defined $used{$class});
eval "use $class;";
