File Coverage

blib/lib/Eidolon/Driver/DB/PostgreSQL.pm

Criterion	Covered	Total	%
statement	9	17	52.9
branch			n/a
condition	0	4	0.0
subroutine	3	5	60.0
pod	2	2	100.0
total	14	28	50.0

package Eidolon::Driver::DB::PostgreSQL;
# ==============================================================================
#
#   Eidolon
#   Copyright (c) 2009, Atma 7
#   ---
#   Eidolon/Driver/DB/PostgreSQL - PostgreSQL DBMS driver
#
# ==============================================================================

use base qw/Eidolon::Driver::DB/;
use warnings;
use strict;

our $VERSION = "0.01"; # 2008-08-23 14:21:27

# ------------------------------------------------------------------------------
# \% new()
# constructor
# ------------------------------------------------------------------------------
sub new
{
    my ($class, $db, $user, $password, $host, $port, $cfg, $self);

    ($class, $db, $user, $password, $host, $port, $cfg) = @_;

    $self = $class->SUPER::new
    (
        "Pg", $db, $user, $password, $host || "localhost", $port || "5432", $cfg
    );

    return $self;
}

# ------------------------------------------------------------------------------
# \@ call($function, @params)
# function/procedure call
# ------------------------------------------------------------------------------
sub call
{
    my ($self, $function, @params, $query);

    ($self, $function, @params) = @_;

    $query = sprintf
    (
        "SELECT * FROM $function(%s)",
        join(",", split(//, "?" x scalar @params))
    );

    return $self->execute($query, @params);
}

1;

__END__