# OO method for error to STDERR uisng 'warn'
# which under mod_perl/Apache is your
# default error_log

sub error_to_log {
	my ($self,$error,$override) = @_;
        if ($self->_debug() || $override) {
		warn "$error\n";
	}
}

##</code><code>##

$object->error_to_log("I made it this far, I can't believe it");

##</code><code>##

$object->error_to_log("Date: $date Variable: $var",1);

##</code><code>##


# $debug is a global variable
# you will need to assign

sub error_to_log {
	my ($error,$override) = @_;
        if ($debug || $override) {
		warn "$error\n";
	}
}

##</code><code>##

&error_to_log("Error message");