File Coverage

blib/lib/DBIx/Connection/Oracle/PLSQL.pm

Criterion	Covered	Total	%
statement	18	36	50.0
branch			n/a
condition			n/a
subroutine	6	9	66.6
pod	3	3	100.0
total	27	48	56.2

package DBIx::Connection::Oracle::PLSQL;

use warnings;
use strict;

use Abstract::Meta::Class ':all';
use Carp 'confess';
use base qw(DBIx::PLSQLHandler);

use vars qw($VERSION);

$VERSION = 0.02;


=head1 NAME

DBIx::Connection::Oracle::PLSQL - PLSQL block handler

=head1 SYNOPSIS

    use DBIx::PLSQLHandler;

    my $plsql_handler = new DBIx::PLSQLHandler(
        name        => 'test_proc',
        connection  => $connection,
        plsql       => "
        DECLARE
        var1 INT;
        BEGIN
        var1 := :var2 + :var3;
        END;",
    );
    $plsql_handler->execute(var2 => 12, var3 => 8);

    or

    use DBIx::Connection;


    my $plsql_handler = $connection->plsql_handler(
        name        => 'test_proc',
        connection  => $connection,
        plsql       => "
        DECLARE
        var1 INT;
        BEGIN
        :var1 := :var2 + :var3;
        END;",
    );

    my $result_set = $plsql_handler->execute(var2 => 12, var3 => 8);


=head2 methods

=over

=item prepare

Prepares plsql cursor

=cut

sub prepare {
    my ($self) = @_;
    $self->set_sql($self->plsql);
    $self->SUPER::prepare();
}



=item execute

=cut

sub execute {
    my $self = shift;
    my $result_set = $self->bind_parameters(@_);
    $self->SUPER::execute();
    $result_set;
}


=item bind_parameters

=cut

sub bind_parameters {
    my ($self, %bind_parameters) = @_;
    my $bind_variables = $self->bind_variables;
    my @bind_in_variables = $self->bind_in_variables;
    my %bind_params = (map {$_ => $bind_parameters{$_}} @bind_in_variables);
    my @binded_out_variables = $self->binded_out_variables;
    my %bind_params_inout = (map {$_ => $bind_parameters{$_}} @binded_out_variables);
    $self->bind_params(\%bind_params);
    $self->bind_params_inout(\%bind_params_inout);
    \%bind_params_inout;
}

__END__