# added some debug output
*DB::Handle::RapTTR::Test::real_new = \&DB::Handle::RapTTR::Test::new;
*DB::Handle::RapTTR::Test::new =
  sub {
      print STDERR "CALLER (".join(',',caller()).")\n";
      if (caller() eq 'RapTTR') {
          print STDERR "RETURNING REAL_NEW.\n"; <STDIN>;
          return DB::Handle::RapTTR::Test->real_new;
      }

      print STDERR "RETURNING FAKE NEW.\n"; <STDIN>;
      cluck "TRACE:";
      return DB::Handle->new(
          connect_string => 'DBI:SQLite:dbname=./t/sqlite/rapttr',
          username => undef,
          password => undef
      );
  };