1 2 3 4 5 6 7 8 9 10 11
package LXRng::Index; use strict; sub transaction(&@) { my ($code, $index) = @_; $index->transaction($code); } 1;