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
new
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/