sub action {
   if ( DEBUG ) {
     my $loggerClass= $self->_getLoggerClass();
     my $loggerHandle=  eval($loggerClass ."::getLoggerHandle()");
   }
}
sub _getLoggerClass {
	my 	( $self )= @_;
	my @_isa_parts = split '::' => ref($self );
	return $_isa_parts[0] . '::Debug::Logger';
}

##</code><code>##

  my $loggerClass= $self->get_loggerClass();
  eval('&'.$loggerClass .'::writeToLoggerHandle($self,$text)');