Select Code to Download

BEGIN {
    # Auto-magically generate a number of similar functions without ac
+tually
    # writing them down one-by-one. This makes changes much easier, bu
+t
...
        *{__PACKAGE__ . "::$a"} = sub { $_[0]->checkDBH(); if($_[0]->{
+isDebugging}) {print STDERR $_[0]->{modname}, " ", $_[1], "\n";}; ret
+urn $_[0]->{mdbh}->$a($_[1]); };
    }
};