The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package CGI::Mungo::Log;
use strict;
use warnings;
use base qw(CGI::Mungo::Utils);
###########################################################
sub log{	#a simple way to log a message to the apache error log
	my($self, $message) = @_;
	my $date = localtime();	#add the time
	my $script = $self->_getScriptName();	#add the name of the script
	print STDERR $script . " " . $message . "\n";
	return 1;
}
#################################################
return 1;