[dbsrgits/DBIx-Class.git] / t / dbh_do.t

#!/usr/bin/perl

use strict;
use warnings;  

use Test::More tests => 8;
use lib qw(t/lib);
use DBICTest;


my $schema = DBICTest->init_schema();
my $storage = $schema->storage;

my $test_func = sub {
    is $_[0], $storage;
    is $_[1], $storage->dbh;
    is $_[2], "foo";
    is $_[3], "bar";
};

$storage->dbh_do(
    $test_func,
    "foo", "bar"
);

my $storage_class = ref $storage;
{
    no strict 'refs';
    *{$storage_class .'::__test_method'} = $test_func;
}
$storage->dbh_do("__test_method", "foo", "bar");
Commit	Line	Data
3ff1602f	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 8;
	7	use lib qw(t/lib);
	8	use DBICTest;
	9
	10
	11	my $schema = DBICTest->init_schema();
	12	my $storage = $schema->storage;
	13
	14	my $test_func = sub {
	15	is $_[0], $storage;
	16	is $_[1], $storage->dbh;
	17	is $_[2], "foo";
	18	is $_[3], "bar";
	19	};
	20
	21	$storage->dbh_do(
	22	$test_func,
	23	"foo", "bar"
	24	);
	25
	26	my $storage_class = ref $storage;
	27	{
	28	no strict 'refs';
	29	*{$storage_class .'::__test_method'} = $test_func;
	30	}
	31	$storage->dbh_do("__test_method", "foo", "bar");
	32
	33