Jeff Klein
and 1 contributors

NAME

DBIx::Fun - access database stored procedures as methods

SYNOPSIS

    use DBI;
    use DBIx::Fun;
    
    my $dbh = DBI->connect('dbi:Oracle:orcl', 'scott', 'tiger');
    
    my $fun = DBIx::Fun->context($dbh);
    
    # print 5 random numbers from the database
    
    $fun->dbms_random->initialize( 123 );
    
    for my $i ( 1 .. 5 ) {
        printf "%d %d\n", $i, $fun->dbms_random->random;
    }
    
    $fun->dbms_random->terminate;
    
    $dbh->disconnect;

DESCRIPTION

This module allow Perl programs to access database stored procedures as if they were methods on an object.

CONSTRUCTORS

context( $dbh )

Creates a DBI::Fun subclass matching the driver of $dbh, e.g., DBD::Oracle => DBIx::Fun::Oracle.

    # call as a class method
    my $fun = DBIx::Fun->context($dbh);

Privately used as an object method to create child contexts.

fun( $dbh )

Returns a context for $dbh, cached in $dbh. Exportable as a function.

   use DBIx::Fun 'fun';

   print fun($dbh)->sysdate, "\n";
   sleep 60;

   # function signature cached in $dbh 
   print fun($dbh)->sysdate, "\n";

auto

Not an actual function. Importing 'auto' will load fun() into the DBI::db package, exposing it as a method on database handles.

   use DBIx::Fun 'auto';

   print $dbh->fun->sysdate, "\n";

METHODS

dbh

Accessor for the underlying database handle.

commit, rollback, disconnect

Convenience methods on the underlying database handle.

PRIVATE METHODS

_call($name, [ @args ] )

Call stored proc $name with arguments @args.

$fun->_call() can be used to call a stored procedure that contains characters not allowed in a Perl identifier, or that clashes with a method defined in Perl.