openinteract-commits

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Setup
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4379/lib/OpenInteract2/Setup

Modified Files:
	RequireClasses.pm 
Log Message:
add debugging


Index: RequireClasses.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Setup/RequireClasses.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** RequireClasses.pm	24 Jan 2005 17:17:31 -0000	1.1
--- RequireClasses.pm	13 Feb 2005 20:26:34 -0000	1.2
***************
*** 5,8 ****
--- 5,10 ----
  use strict;
  use base qw( OpenInteract2::Setup );
+ use Log::Log4perl            qw( get_logger );
+ use OpenInteract2::Constants qw( LOG_INIT );
  use OpenInteract2::Exception qw( oi_error );
  use OpenInteract2::Util;
***************
*** 16,27 ****
  sub execute {
      my ( $self ) = @_;
      my @to_require = $self->_find_classes_to_require;
      foreach my $require_class ( @to_require ) {
          next unless ( $require_class );
          eval "require $require_class";
          if ( $@ ) {
-             my $type = $self->param( 'classes_type' ) || 'Class';
              oi_error "$type: failed to require class '$require_class': $@";
          }
      }
      $self->param( required_classes => \@to_require );
--- 18,33 ----
  sub execute {
      my ( $self ) = @_;
+     $log ||= get_logger( LOG_INIT );
+     my $type = $self->param( 'classes_type' ) || 'Class';
      my @to_require = $self->_find_classes_to_require;
+     $log->is_debug &&
+         $log->debug( "$type to require: ", join( ', ', @to_require ) );
      foreach my $require_class ( @to_require ) {
          next unless ( $require_class );
          eval "require $require_class";
          if ( $@ ) {
              oi_error "$type: failed to require class '$require_class': $@";
          }
+         $log->is_debug && $log->debug( "$type: $require_class: require ok" );
      }
      $self->param( required_classes => \@to_require );