sub _debug {
	my ($self, $lvl, @out) = @_;
	return if $self->{debug}<$lvl || !@out;
	print STDERR __PACKAGE__, " DEBUG: ", @out, "\n";
}
# ...
$self->_debug(2, ...);