11 my $schema = DBICTest->init_schema();
12 my $storage = $schema->storage;
15 my $test_func = sub { @args = @_ };
17 $storage->dbh_do($test_func, "foo", "bar");
20 [ $storage, $storage->dbh, "foo", "bar" ],
24 my $storage_class = ref $storage;
27 local *{$storage_class .'::__test_method'} = $test_func;
28 $storage->dbh_do("__test_method", "baz", "buz");
33 [ $storage, $storage->dbh, "baz", "buz" ],
38 $storage->dbh_do (sub { $_[2] = 'changed' }, $res);
40 is ($res, 'changed', "Arguments properly aliased for dbh_do");