+sub _notify {
+ my $self = shift;
+ my $level = shift;
+ if ($self->debug >= $level) {
+ print STDERR @_;
+ return 1;
+ }
+ return 0;
+}
+
+sub info { shift->_notify(INFO, @_) }
+
+sub warn { shift->_notify(WARN, @_) }
+
+sub err { shift->_notify(ERR, @_) }
+
+sub crit { shift->_notify(CRIT, @_) }
+
+=head2 C<root>