#!/perl
use strict;
use warnings FATAL => qw(all);

use DBI;
use File::Spec;
use Benchmark qw(:all) ;

my $PATH = "C:/TMP/___TMP/_TRASH";
my $dbfile = File::Spec->catdir($PATH, 'Big_DB.db');

my $MEMORY = 1;

my $dbh;
if (1 == $MEMORY)
{
	$dbh = DBI->connect('dbi:SQLite:dbname=:memory:',"","",{RaiseError => 1}) or die "Couldn't connect to database: " . DBI->errstr;
}
else
{
	$dbh = DBI->connect("dbi:SQLite:dbname=$dbfile","","",{RaiseError => 1}) or die "Couldn't connect to database: " . DBI->errstr;
}

if (1 == $MEMORY)
{    
	$dbh->sqlite_backup_from_file($dbfile);
}

cmpthese(-3, {
        'PrepExec' => sub 
	   { 
		my $sth = $dbh->prepare("select Name, Writeups from employees e, groups g where e.Level = g.Level and g.Level = 'Pope (28)' order by e.Writeups desc ");
		$sth->execute();
		
		my $answer = 0;
		
		
		while ( my ($name, $writeups) = $sth->fetchrow_array )
		{
			$answer += 1; # print join(';', ($name, $writeups)), $/;
		}
	   },
        'selectall' => sub 
	   { 
		my $sql = "select Name, Writeups from employees e, groups g where e.Level = g.Level and g.Level = 'Pope (28)' order by e.Writeups desc ";

		my $answer = 0;
		for my $emp (@{$dbh->selectall_arrayref($sql, {Slice => {}})}) 
		{
			$answer += 1;
		}
	   },
    });

$dbh->disconnect;