use lib qw(./lib ./t/lib);

BEGIN {
  close STDERR;
  open STDERR, ">", \$err or die $!;
}

BEGIN {
  use MyUtil qw/error/, {debug => 1};
  print $err =~ m{Ktat} ? "ok\n" : "not ok\n# $err\n";
}

BEGIN {
  eval 'use MyUtil qw/error/, {debug => 2};';
  print $@ =~ m{locate Ktat} ? "ok\n" : "not ok\n# $@\n";
}

print "1..2\n";