cvsuser 02/03/22 15:15:46
Modified: P5EEx/Blue/P5EEx/Blue Context.pm
Log:
moved use() method to P5EE.pm
Revision Changes Path
1.23 +2 -40 p5ee/P5EEx/Blue/P5EEx/Blue/Context.pm
Index: Context.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Context.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -w -r1.22 -r1.23
--- Context.pm 19 Mar 2002 22:40:54 -0000 1.22
+++ Context.pm 22 Mar 2002 23:15:46 -0000 1.23
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: Context.pm,v 1.22 2002/03/19 22:40:54 spadkins Exp $
+## $Id: Context.pm,v 1.23 2002/03/22 23:15:46 spadkins Exp $
#############################################################################
package P5EEx::Blue::Context;
@@ -511,12 +511,7 @@
}
if (! $self->{used}{$class}) { # load the code
- eval "use $class;";
- if ($@) {
- P5EEx::Blue::Exception::Context->throw(
- error => "service(): class $class failed to load: $@\n",
- );
- }
+ P5EEx::Blue::P5EE->use($class);
$self->{used}{$class} = 1;
}
@@ -913,39 +908,6 @@
else {
$self->{messages} = $msg;
}
-}
-
-#############################################################################
-# use()
-#############################################################################
-
-=head2 use()
-
-The use() method writes a string (the concatenated list of @args) to
-the default use channel.
-
- * Signature: $context->use($class);
- * Param: $class string [in]
- * Return: void
- * Throws: <none>
- * Since: 0.01
-
- Sample Usage:
-
- $context->use("P5EEx::Blue::Widget::Entity");
-
-=cut
-
-sub use {
- my ($self, $class) = @_;
- return if (defined $self->{used}{$class});
- eval "use $class;";
- if ($@) {
- P5EEx::Blue::Exception::Context->throw(
- error => "class $class failed to load: $@\n",
- );
- }
- $self->{used}{$class} = 1;
}
#############################################################################
