Oracle::DML::Common - Common routines for Oracle DML
use Oracle::DML::Common; my %cfg = ('conn_string'=>'usr/pwd@db', 'table_name'=>'my_ora_tab'); my $ot = Oracle::DML::Common->new; # or combine the two together my $ot = Oracle::DML::Common->new(%cfg); my $sql= $ot->prepare(%cfg); $ot->execute(); # actually create the audit table and trigger
This class contains methods to create audit tables and triggers for Oracle tables.
Input variables:
%ha - any hash array containing initial parameters
Variables used or routines called:
None
How to use:
my $obj = new Oracle::DML::Common; # or my $obj = Oracle::DML::Common->new;
Return: new empty or initialized Oracle::DML::Common object.
This method constructs a Perl object and capture any parameters if specified.
The following are the common methods, routines, and functions used by other classes.
The :db_conn tag includes sub-rountines for creating and managing database connections.
use Oracle::DML::Common qw(:db_conn);
It includes the following sub-routines:
$con - Connection string for Oralce: usr/pwd@db (default) CSV: /path/to/file ODBC|SQL: usr/pwd@DSN[:approle/rolepwd] $dtp - Database type: Oracle, CSV, etc
DBI DBD::Oracle Win32::ODBC
$self->get_dbh('usr/pwd@dblk', 'Oracle'); $self->get_dbh('usr/pwd@dblk:approle/rpwd', 'SQL');
Return: database handler
If application role is provided, it will activate the application role as well.
$dbh - database handler, required. $tn - table/object name, required. schema.table_name is allowed.
echoMSG - display messages.
# whether table 'emp' exist $yesno = $self->is_object_exist($dbh,'emp');
Return: 0 - the object does not exist; 1 - the object exist;
The :table tag includes sub-rountines for creating, checking and manipulating tables.
use Oracle::DML::Common qw(:table);
Version 0.1
This versionwas contained in Oracle::Trigger class.
Version 0.2
04/29/2005 (htu) - extracted common routines from Oracle::Trigger class and formed Oracle::DML::Common.
Version 0.21
Remove get_table_definition method to Oracle::Schema class.
Data::Describe, Oracle::Loader, CGI::Getopt, File::Xcopy, Oracle::Trigger, perltoot(1), perlobj(1), perlbot(1), perlsub(1), perldata(1), perlsub(1), perlmod(1), perlmodlib(1), perlref(1), perlreftut(1).
Copyright (c) 2005 Hanming Tu. All rights reserved.
This package is free software and is provided "as is" without express or implied warranty. It may be used, redistributed and/or modified under the terms of the Perl Artistic License (see http://www.perl.com/perl/misc/Artistic.html)
1 POD Error
The following errors were encountered while parsing the POD:
You forgot a '=back' before '=head1'
To install Oracle::DML::Common, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Oracle::DML::Common
CPAN shell
perl -MCPAN -e shell install Oracle::DML::Common
For more information on module installation, please visit the detailed CPAN module installation guide.