NAME

RPC::Oracle - Provide seemless interface into Oracle procedures and functions.

SYNOPSIS

	use RPC::Oracle;
	my $oracle = RPC::Oracle->new($dbh);

	$oracle->call('package.procedure', 'arg1', 'arg2');
	my $return = $oracle->call('function', 'arg1', 'arg2');

	$oracle->schema('SCOTT');
	$oracle->my_procedure('arg1', 'arg2'); # calls procedure scott.my_procedure

	# call myschema.mypackage.my_function()
	$oracle->schema('myschema.mypackage');
	my $return = $oracle->my_function();

	# binds $arg2 as an "IN OUT" parameter
	$oracle->call("myproc", $arg1, \$arg2);
	print "I got $arg2!\n";

	# get the value of my_package.my_constant
	$oracle->schema("my_package");
	print $oracle->constant("my_constant");

	# call procedure with long form
	$oracle->my_procedure({
		var1 => 'value of var1',
		var2 => 'value of var2',
		var3 => \$outbound_variable
	});

  # get package variable
  $oracle->schema("dbms_stats");
  my $auto_sample_size = $oracle->auto_sample_size;

DESCRIPTION

Class Methods

new

use RPC::Oracle;
my $oracle = new RPC::Oracle($dbh, [$schema]);

Instantiates RPC::Oracle object with the given database handle. $dbh should be a valid DBI::db object, but no type checking is done.

dbh

$oracle->dbh($dbh);

Set the internal database handle. $dbh should be a vaild DBI::db object, but no type checking is done. A database handle is required to make use of this tool.

schema

$oracle->schema("myschema");
$oracle->schema("myschema.mypackage");

Set the prefix for calling functions or procedures. Handy for saving typing.

call

$oracle->call("myprocedure", $arg1, $arg2);
my $return = $oracle->call("myschema.myfunction", $arg1, $arg2);

# binds $arg2 as an "IN OUT" parameter
$oracle->call("myproc", $arg1, \$arg2);
print "I got $arg2!\n";

# call procedure with long form
$oracle->my_procedure({
	var1 => 'value of var1',
	var2 => 'value of var2',
	var3 => \$outbound_variable
});

Translates the requested function/procedure name into a PL/SQL block and executes it. If called in void context, RPC::Oracle assumes you are calling a procedure. In scalar/array context, RPC::Oracle assumes you want a function.

If any parameters are references, RPC::Oracle will bind them as "IN OUT" parameters. Oracle treats "IN OUT" parameters and "OUT" parameters the same.

AUTOLOAD

$oracle->my_procedure($arg1, $arg2);
my $return = $oracle->my_function($arg1, $arg2);

The AUTOLOAD method treats the sub name as the target procedure/function name. Note, that since perl disallows periods (.) in function names, you should use schema to set the schema beforehand.

constant

$oracle->schema("my_package");
my $var = $oracle->constant("my_constant");

Retrieves the PL/SQL constant from a package.

CAVEATS

This package does not correctly handle outbound cursor refs. Doing such would require foreknowledge that a cursor object was coming back so the call to bind_param_inout() can be adjusted accordingly.

In addition, the AUTOLOAD method will not be called if the target procedure is named new, dbh, schema, call, constant or autoload, since these are class methods.

AUTHOR

Warren Smith wsmith@cpan.org