File Coverage

blib/lib/SQL/SqlObject/Pg.pm

Criterion	Covered	Total	%
statement	18	20	90.0
branch	3	8	37.5
condition			n/a
subroutine	7	8	87.5
pod	0	4	0.0
total	28	40	70.0

package SQL::SqlObject::Pg;

use strict;
use warnings;
use SQL::SqlObject;
use base 'SQL::SqlObject';

our $VERSION = '0.01';

SQL::SqlObject::Config::set 'HOST';
SQL::SqlObject::Config::set 'PORT';
SQL::SqlObject::Config::set 'OPTIONS';
SQL::SqlObject::Config::set 'TTY';
SQL::SqlObject::Config::set DSN         => 'dbi:Pg';
SQL::SqlObject::Config::set NAME_PREFIX => 'dbname=';

SQL::SqlObject::Config::set OTHER_ARGS => (
					   'db_host',
					   'db_port',
					   'db_options',
					   'db_tty'
					  );

SQL::SqlObject::Config::add_arg (
				 'db_host',
				 'host|pg_host|pghost',
				 'PGHOST',
				 'HOST',
				 'db_dsn'
				  );
SQL::SqlObject::Config::add_arg (
				 'db_port',
				 'port|pg_port',
				 'PGPORT',
				 'PORT',
				 'db_dsn'
				);
SQL::SqlObject::Config::add_arg (
				 'db_options',
				 'opts|options|pg_options',
				 'PGOPTIONS',
				 'OPTIONS',
				 'db_dsn'
				);
SQL::SqlObject::Config::add_arg (
				 'db_tty',
				 'tty|pg_tty',
				 'PGTTY',
				 'TTY',
				 'db_dsn'
				);

SQL::SqlObject::Config::add_enviroment_variable 'db_name'     => 'PGDATABASE';
SQL::SqlObject::Config::add_enviroment_variable 'db_user'     => 'PGUSER';
SQL::SqlObject::Config::add_enviroment_variable 'db_password' => 'PGPASSWORD';

SQL::SqlObject::Config::add_alias 'db_name', ('pg_database',
					      'pgdatabase',
					      'dbname');

SQL::SqlObject::Config::add_alias 'db_user', ('pg_user',
					      'pguser',
					      'pg_username',
					      'pgusername');

SQL::SqlObject::Config::add_alias 'db_password', ('pg_pass',
						  'pgpass',
						  'pg_password',
						  'pgpassword');

sub db_host    : lvalue { $#_ and $_[0]->{pg_host} = $_[1]; $_[0]->{pg_host} }
sub db_port    : lvalue { $#_ and $_[0]->{pg_port} = $_[1]; $_[0]->{pg_port} }
sub db_options : lvalue { $#_ and $_[0]->{pg_ops}  = $_[1]; $_[0]->{pg_ops} }
sub db_tty     : lvalue { $#_ and $_[0]->{pg_tty}  = $_[1]; $_[0]->{pg_tty} }

1;
__END__