Help for this page
our $T = $object; transaction {...}
transaction [$dbh1, $dbh2] => code{...}; # or transaction ($dbh1, $dbh2) => code{...};
package Transactions; use strict; ... sub code (&) {return $_[0]} 1;