{
	my %cache;

	my $statements = sub {
		my $h = shift;
		local $/ = ";";
		chomp(my @sql = <$h>);
		return grep /\S/, @sql;
	};

	sub run_data_sql {
		my $class = shift;
		no strict 'refs';
		$cache{$class} ||= [ $statements->(*{"$class\::DATA"}{IO}) ];
		$class->db_Main->do($_) foreach @{$cache{$class}};
		return 1;
	}

}


##</code><code>##

My::Class->run_data_sql

##</code><code>##

my $class = shift;

##</code><code>##

my $class = ref shift();

##</code><code>##

$object->run_data_sql