NAME

MPMinus::Store::Oracle - Oracle MPMinus::Store::DBI interface

VERSION

Version 1.53

SYNOPSIS

use MPMinus::Store::Oracle;

# Oracle connect
my $oracle = new MPMinus::Store::Oracle (
    -m          => $m, # OPTIONAL
    -host       => '192.168.1.1',
    -database   => 'TEST',
    -user       => 'login',
    -pass       => 'password',
    -attr       => {
            RaiseError => 0,
            PrintError => 0,
        },
)

my $dbh = $oracle->connect;

my $pingstat = $oracle->ping if $oracle;

# Table select (as array)
my @result = $oracle->table($sql, @inargs);

# Table select (as hash)
my %result = $oracle->tableh($key, $sql, @inargs); # $key - primary index field name

# Record (as array)
my @result = $oracle->record($sql, @inargs);

# Record (as hash)
my %result = $oracle->recordh($sql, @inargs);

# Fiels (as scalar)
my $result = $oracle->field($sql, @inargs);

# SQL/PL-SQL
my $sth = $oracle->execute($sql, @inargs);
...
$sth->finish;

DESCRIPTION

Oracle MPMinus::Store::DBI interface

See MPMinus::Store::DBI

new

See MPMinus::Store::DBI

EXAMPLE

use MPMinus::Store::Oracle;

my $oracle = new MPMinus::Store::Oracle (
        -name => 'mylocaldb',
        -user => 'root',
        -password => 'password'
  );

my @table = $oracle->table("select * from tablename where date = ?", "01.01.2000")

HISTORY

1.00 / 11.04.2007

Init version

1.10 / 26.03.2008

OOP style supported

1.20 / 01.04.2008

Module movied to global level

1.40 / 27.02.2009

Module movied to MPMinus level

1.51 / 19.04.2010

Added in MPMinus poject

1.41 / Wed Apr 24 14:53:38 2013 MSK

General refactoring

See CHANGES file

DEPENDENCIES

MPMinus::Store::DBI, DBD::Oracle

TO DO

See TODO file

BUGS

* none noted

SEE ALSO

MPMinus::Store::DBI, DBD::Oracle

AUTHOR

Serż Minus (Sergey Lepenkov) http://www.serzik.com <abalama@cpan.org>

COPYRIGHT

Copyright (C) 1998-2019 D&D Corporation. All Rights Reserved

LICENSE

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See LICENSE file and https://dev.perl.org/licenses/