cvsuser 05/03/14 09:37:04
Modified: App-Context/lib/App Context.pm Exceptions.pm
SessionObject.pm
Log:
minor changes
Revision Changes Path
1.20 +3 -3 p5ee/App-Context/lib/App/Context.pm
Index: Context.pm
===================================================================
RCS file: /cvs/public/p5ee/App-Context/lib/App/Context.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- Context.pm 14 Dec 2004 19:40:03 -0000 1.19
+++ Context.pm 14 Mar 2005 17:37:04 -0000 1.20
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: Context.pm,v 1.19 2004/12/14 19:40:03 spadkins Exp $
+## $Id: Context.pm,v 1.20 2005/03/14 17:37:04 spadkins Exp $
#############################################################################
package App::Context;
@@ -1937,11 +1937,11 @@
if ($service_type) {
my $name = $event->{name};
my $service = $self->service($service_type, $name);
- print "[$$] Send Event: $service_type($name).$method(@args)\n" if
($self->{verbose} >= 3);
+ $self->log("Send Event: $service_type($name).$method(@args)\n") if
($self->{verbose} >= 2);
$service->$method(@args);
}
else {
- print "[$$] Send Event: $method(@args)\n" if ($self->{verbose} >= 3);
+ $self->log("Send Event: $method(@args)\n") if ($self->{verbose} >=
2);
$self->$method(@args);
}
&App::sub_exit() if ($App::trace);
1.2 +2 -2 p5ee/App-Context/lib/App/Exceptions.pm
Index: Exceptions.pm
===================================================================
RCS file: /cvs/public/p5ee/App-Context/lib/App/Exceptions.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- Exceptions.pm 9 Sep 2002 01:34:10 -0000 1.1
+++ Exceptions.pm 14 Mar 2005 17:37:04 -0000 1.2
@@ -4,7 +4,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = sprintf '%2d.%02d', q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf '%2d.%02d', q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/;
my %e;
@@ -74,7 +74,7 @@
=head1 SYNOPSIS
- use App::Exception;
+ use App::Exceptions;
=head1 DESCRIPTION
1.6 +21 -1 p5ee/App-Context/lib/App/SessionObject.pm
Index: SessionObject.pm
===================================================================
RCS file: /cvs/public/p5ee/App-Context/lib/App/SessionObject.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- SessionObject.pm 10 Nov 2004 15:40:12 -0000 1.5
+++ SessionObject.pm 14 Mar 2005 17:37:04 -0000 1.6
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: SessionObject.pm,v 1.5 2004/11/10 15:40:12 spadkins Exp $
+## $Id: SessionObject.pm,v 1.6 2005/03/14 17:37:04 spadkins Exp $
#############################################################################
package App::SessionObject;
@@ -193,6 +193,26 @@
# PUBLIC METHODS
#############################################################################
+#############################################################################
+# Method: shutdown()
+#############################################################################
+
+=head2 shutdown()
+
+ * Signature: $self->shutdown();
+ * Throws: App::Exception
+ * Since: 0.01
+
+ $session_object->shutdown();
+
+=cut
+
+sub shutdown {
+ &App::sub_entry if ($App::trace);
+ my ($self) = @_;
+ &App::sub_exit() if ($App::trace);
+}
+
=head1 Public Methods:
=cut
