+ eval "require $conf; 1" or Carp::confess("Couldn't load $conf: $@");
+
+ my $r = App::Rgit::Repository->new(fake => 1);
+ return unless defined $r;
+
+ bless {
+ root => $root,
+ git => $git,
+ cwd_repo => $r,
+ debug => defined $args{debug} ? int $args{debug} : WARN,
+ }, $conf;
+}
+
+=head2 C<info $msg>
+
+=head2 C<warn $msg>
+
+=head2 C<err $msg>
+
+=head2 C<crit $msg>
+
+Notifies a message C<$msg> of the corresponding level.
+
+=cut
+
+sub _notify {
+ my $self = shift;
+ my $level = shift;
+ if ($self->debug >= $level) {
+ print STDERR @_;
+ return 1;
+ }
+ return 0;