Changeset 18242

Timestamp:

08/26/08 14:25:42 (4 months ago)

Author:

kazuho

Message:

dbh() now accepts coderef

Location:

lang/perl/Filter-SQL/trunk

Files:

• lib/Filter/SQL.pm (modified) (1 diff)
• t/00-base.t (modified) (1 diff)
• t/01-simple.t (modified) (1 diff)

lang/perl/Filter-SQL/trunk/lib/Filter/SQL.pm

@@ -81 +81 @@
     if (@_) {
         $dbh = shift;
-    }
-    $dbh;
+        return; # returns undef
+    }
+    ref $dbh eq 'CODE' ? $dbh->() : $dbh;
 }
 

lang/perl/Filter-SQL/trunk/t/00-base.t

@@ -1 @@
-use Test::More tests => 1;
+use Test::More tests => 4;
 
 use_ok('Filter::SQL');
+
+my $r = 1;
+Filter::SQL->dbh(sub { $r++ });
+is($r, 1);
+is(Filter::SQL->dbh(), 1);
+is($r, 2);

lang/perl/Filter-SQL/trunk/t/01-simple.t

@@ -19 +19 @@
 
 is(Filter::SQL->dbh, undef);
-is(Filter::SQL->dbh($dbh), $dbh);
+is(Filter::SQL->dbh($dbh), undef);
 is(Filter::SQL->dbh, $dbh);