sub log {
    my $self = shift; 
    my $sender = shift; 
    my $message = shift;
    my $logger = undef; 
    foreach $logger ($self->loggers()) {
	$logger->log($sender, $message);
    }
}