view release on metacpan or  search on metacpan

config/.htbusiness.cart.generic.conf  view on Meta::CPAN

# ---------
# This is a URL.
# My DocumentRoot:    /dev/shm/html.
# hence my disk path: /dev/shm/html/assets/css/business/cart/generic.

css_url = /assets/css/business/cart/generic

# Database stuff
# --------------
# Note:
# o sqlite_unicode=1 is only for DBD::SQLite.
#   If not using SQLite, you can safely leave that line in here.
# o Session stuff (below) also refers to database stuff.
# o pg_bytea and pg_text are used by Data::Session.

AutoCommit = 1
#dsn = dbi:SQLite:dbname=/tmp/generic_cart.sqlite
#dsn = dbi:mysql:database=generic_cart
dsn = dbi:Pg:dbname=generic_cart
pg_bytea = 0
pg_text = 1
RaiseError = 1
sqlite_unicode = 1
username = online
password = shopper

# Default stuff
# -------------
# 13  => Australia
# 2   => GST
# 192 => Victoria

default_country_id = 14

lib/Business/Cart/Generic/Base.pm  view on Meta::CPAN

our $VERSION = '0.85';

# -----------------------------------------------

sub BUILD
{
	my($self)   = @_;
	my($config) = $self -> config;
	my($attr)   = {AutoCommit => $$config{AutoCommit}, RaiseError => $$config{RaiseError} };

	if ( ($$config{dsn} =~ /SQLite/i) && $$config{sqlite_unicode})
	{
		$$attr{sqlite_unicode} = 1;
	}

	$self -> connector
		(
		 DBIx::Connector -> new($$config{dsn}, $$config{username}, $$config{password}, $attr)
		);

	if ($$config{dsn} =~ /SQLite/i)
	{
		$self -> connector -> dbh -> do('PRAGMA foreign_keys = ON');

lib/Business/Cart/Generic/Database.pm  view on Meta::CPAN

our $VERSION = '0.85';

# -----------------------------------------------

sub BUILD
{
	my($self)   = @_;
	my($config) = $self -> config;
	my($attr)   = {AutoCommit => $$config{AutoCommit}, RaiseError => $$config{RaiseError} };

	if ( ($$config{dsn} =~ /SQLite/i) && $$config{sqlite_unicode})
	{
		$$attr{sqlite_unicode} = 1;
	}

	$self -> connector(DBIx::Connector -> new($$config{dsn}, $$config{username}, $$config{password}, $attr) );
	$self -> schema
		(
		 Business::Cart::Generic::Schema -> connect(sub{return $self -> connector -> dbh})
		);

	if ($$config{dsn} =~ /SQLite/i)
	{