/ 
PowerTools-Data-0.04
River stage zero No dependents
/ PowerTools::Data

NAME

PowerTools::Data - Additional Perl tool for Apache::ASP - MySQL database connection

SYNOPSIS

use PowerTools::Data;

# Create new object using params

my $db = PowerTools::Data->new(
	# Username
	username => 'mysql',			# default 'root'
	# Password
	password => 'grendel1981',		# default ''
	# Database name
	database => 'test',			# default 'test'
	# Hostname
	hostname => 'localhost,			# default 'localhost';
	# Port
	port => 3306,				# default 3306;
	# Protocol compression (0/1)
	compression => 1,			# default 1;
	# DBI's RaiseError (0/1)
	errors => 1,				# default 1;
	# DBI's AutoCommit (0/1)
	commit => 1				# default 1;

);

# Create new object using .INI file

my $db = PowerTools::Data->new(
	# Path to .INI file
	ini => 'test.ini'			# default ''
);

# Note: You can change .ini extension to other
# Remember to secure choosen extensions name in Your Apache config

# Connects to database
my $conn = $db->connect;

# Connection status (0 - FAIL/1 - OK)
my $s = $db->status;
print "STATUS $s\n";

# MySQL Server info
my $s = $db->{_SERVER_INFO};
print "SERVER $s\n";

# MySQL Server host info
my $s = $db->{_HOST_INFO};
print "HOST $s\n";

# Executes SQL statement
my $ex = $db->execute("INSERT INTO test (test_val1,test_val2) VALUES ('a','b')");

# Items count
my $cn = $db->count;
print "COUNT INSERT $cn\n";

# Last inserted item
my $lt = $db->last;
print "LAST ITEM $lt\n";

# Query execute time
my $tk = $db->took;
print "TOOK $tk\n";

# Parse query result

while(!$db->eof) {
	my $str = "-> ".$db->field('test_id').", ".$db->field('test_val1').", ".$db->field('test_val2').", ".$db->field('test_val3');
	print "$str\n";
	$db->movenext;
}

# Additional tools

# Get (in MySQL format) current: date ('GET_MYSQL_DATE'), datetime ('GET_MYSQL_DATETIME'), time ('GET_MYSQL_TIME'), timestamp ('GET_MYSQL_TIMESTAMP')
my $cur = $db->tools('GET_MYSQL_TIMESTAMP');
print "$cur\n";

# Returns time object from MySQL's: date ('RETURN_TIME_DATE'), datetime ('RETURN_TIME_DATETIME'), timestamp ('RETURN_TIME_TIMESTAMP')
my $cur = $db->tools('RETURN_TIME_TIMESTAMP',$cur);
print "$cur\n";

AUTHOR

Piotr Ginalski, <office@gbshouse.com>

COPYRIGHT AND LICENSE

Copyright (C) 2007 by A. U. Thor

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.