#!/usr/bin/perl -w


use strict;
use warnings;


use MSOOMoose;

my $sqlsyntax;


my $msoo = MSOOMoose->new(
	commit => 5
);


$msoo->setQuery("INSERT INTO groupinsert (number) VALUES ('2')");
$msoo->insertQuery(1); # 1 means: force commit


for ($a = 0; $a < 10; $a += 1)
{
	$sqlsyntax = qq{INSERT INTO groupinsert (number) VALUES ('$a')};
	$msoo->setQuery($sqlsyntax);
	$msoo->insertQuery();
	
}


exit(0);