diff options
Diffstat (limited to 'ex/corogofer.pl')
-rw-r--r-- | ex/corogofer.pl | 32 |
1 files changed, 32 insertions, 0 deletions
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."; + |