view release on metacpan or  search on metacpan

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

}

# Internal method to log messages. This method is called by other logging methods.
# $logger->_log($level, @messages);
# $logger->_log($level, \@messages);

sub _log
{
	my ($self, $level, @messages) = @_;

	if(!UNIVERSAL::isa((caller)[0], __PACKAGE__)) {
		Carp::croak('Illegal Operation: This method can only be called by a subclass or ourself');
	}

	if(!defined($syslog_values{$level})) {
		Carp::Croak(ref($self), ": Invalid level '$level'");	# "Can't happen"
	}

	if($syslog_values{$level} > $self->{'level'}) {
		# The level is too low to log
		return;