cvs commit: p5ee/App-Context/lib/App Context.pm Exceptions.pm SessionObject.pm

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