view release on metacpan or  search on metacpan

lib/Su/Log.pm  view on Meta::CPAN

    $class_name = caller();
  }

  #  diag("classname:" . $class_name);
  #  diag( Dumper($class_name));
  # Su::Log->trace( "classname:" . $class_name );
  # Su::Log->trace( Dumper($class_name) );

  # Add the caller class to the target list automatically.

  return bless { class_name => $class_name, on => 1, level => $level }, $self;
} ## end sub new

=item is_target()

Determine whether the module is a logging target or not.

=cut

sub is_target {
  my $self = shift;