From 7c48e67cf07ee41bfde7139a62bb232bd23a4a48 Mon Sep 17 00:00:00 2001
From: Lorry Tar Creator <lorry-tar-importer@baserock.org>
Date: Wed, 6 Jun 2012 16:41:29 +0000
Subject: Imported from
 /srv/lorry/lorry-area/perl-dbi-tarball/DBI-1.622.tar.gz.

---
 ex/corogofer.pl | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 ex/corogofer.pl

(limited to 'ex/corogofer.pl')

diff --git a/ex/corogofer.pl b/ex/corogofer.pl
new file mode 100644
index 0000000..8baa587
--- /dev/null
+++ b/ex/corogofer.pl
@@ -0,0 +1,32 @@
+#!perl
+
+use strict;
+use warnings;
+use Time::HiRes qw(time);
+
+BEGIN { $ENV{PERL_ANYEVENT_STRICT} = 1; $ENV{PERL_ANYEVENT_VERBOSE} = 1; }
+
+use AnyEvent;
+
+BEGIN { $ENV{DBI_TRACE} = 0; $ENV{DBI_PUREPERL} = 0; $ENV{DBI_GOFER_TRACE} = 0; $ENV{DBD_GOFER_TRACE} = 0; };
+
+use DBI;
+
+$ENV{DBI_AUTOPROXY} = 'dbi:Gofer:transport=corostream';
+
+my $ticker = AnyEvent->timer( after => 0, interval => 0.1, cb => sub {
+    warn sprintf "-tick- %.2f\n", time
+} );
+
+warn "connecting...\n";
+my $dbh = DBI->connect("dbi:NullP:");
+warn "...connected\n";
+
+for (1..5) {
+    warn "entering DBI...\n";
+    $dbh->do("sleep 0.3"); # pseudo-sql understood by the DBD::NullP driver
+    warn "...returned\n";
+}
+
+warn "done.";
+
-- 
cgit v1.2.1