File Coverage

blib/lib/Anansi/Database/Oracle.pm

Criterion	Covered	Total	%
statement	3	8	37.5
branch			n/a
condition	0	2	0.0
subroutine	1	3	33.3
pod	2	2	100.0
total	6	15	40.0

package Anansi::Database::Oracle;


=head1 NAME

Anansi::Database::Oracle - A manager for Oracle databases.

=head1 SYNOPSIS

    use Anansi::Database::Oracle;
    if(Anansi::Database::Oracle->validate(
        undef,
        DRIVER => 'Oracle',
    )) {
        my $OBJECT = Anansi::Database::Oracle->new();
        if($OBJECT->connect(
            undef,
            DATABASE => 'someDatabase',
            PASSWORD => 'somePassword',
            USERNAME => 'someUser',
        )) {
            my $records = $OBJECT->statement(
                undef,
                INPUT => [
                    {
                        DEFAULT => '0',
                        NAME => 'yetAnotherField',
                    }
                ],
                SQL => 'SELECT some_field, another_field FROM some_table WHERE yet_another_field = ?;',
                yetAnotherField => 123,
            );
            $OBJECT->disconnect();
            if(defined($records)) {
                if(ref($records) =~ /^ARRAY$/i) {
                    my $record = 0;
                    foreach my $record (@{$records}) {
                        next if(ref($record) !~ /^HASH$/i);
                        print "\n" if(0 < $record);
                        my $field = 0;
                        foreach my $key (keys(%{$record})) {
                            print ', ' if(0 < $field);
                            print '"'.$key.'" = "'.${record}{$key}.'"';
                            $field++;
                        }
                        $record++;
                    }
                    print "\n";
                }
            }
        }
    }

    use Anansi::Database;
    my $OBJECT = Anansi::Database->new();
    my $component = $OBJECT->addComponent(
        undef,
        DRIVER => 'Oracle',
    );
    if(defined($component)) {
        if($OBJECT->channel(
            'CONNECT',
            $component,
            DATABASE => 'someDatabase',
            PASSWORD => 'somePassword',
            USERNAME => 'someUser',
        )) {
            my $records = $OBJECT->channel(
                'STATEMENT',
                $component,
                INPUT => [
                    {
                        DEFAULT => '0',
                        NAME => 'yetAnotherField',
                    }
                ],
                SQL => 'SELECT some_field, another_field FROM some_table WHERE yet_another_field = ?;',
                yetAnotherField => 123,
            );
            if(defined($records)) {
                if(ref($records) =~ /^ARRAY$/i) {
                    my $record = 0;
                    foreach my $record (@{$records}) {
                        next if(ref($record) !~ /^HASH$/i);
                        print "\n" if(0 < $record);
                        my $field = 0;
                        foreach my $key (keys(%{$record})) {
                            print ', ' if(0 < $field);
                            print '"'.$key.'" = "'.${record}{$key}.'"';
                            $field++;
                        }
                        $record++;
                    }
                    print "\n";
                }
            }
        }
    }

=head1 DESCRIPTION

Manages Oracle databases allowing the opening and closing of Oracle databases.

=cut


our $VERSION = '0.02';

use base qw(Anansi::DatabaseComponent);


=head1 METHODS

=cut


=head2 Anansi::Class

See L for details.  A parent module of L.

=cut


=head3 DESTROY

See L for details.

=cut


=head3 finalise

See L for details.  Overridden by L.  A virtual method.

=cut


=head3 implicate

See L for details.  A virtual method.

=cut


=head3 import

See L for details.

=cut


=head3 initialise

See L for details.  Overridden by L.  A virtual method.

=cut


=head3 new

See L for details.

=cut


=head3 old

See L for details.

=cut


=head3 used

See L for details.

=cut


=head3 uses

See L for details.

=cut


=head3 using

See L for details.

=cut


=head2 Anansi::Component

See L for details.  A parent module of L.

=cut


=head3 Anansi::Class

See L for details.  A parent module of L.

=cut


=head3 addChannel

See L for details.

=cut


=head3 channel

See L for details.

=cut


=head3 componentManagers

See L for details.

=cut


=head3 removeChannel

See L for details.

=cut


=head2 Anansi::DatabaseComponent

See L for details.  A parent module of L.

=cut


=head3 Anansi::Component

See L for details.  A parent module of L.

=cut


=head3 autoCommit

See L for details.

=cut


Anansi::Component::addChannel('Anansi::Database::Oracle', 'AUTOCOMMIT' => 'Anansi::DatabaseComponent::autocommit');


=head3 bind

See L for details.

=cut


=head3 binding

See L for details.

=cut


=head3 commit

See L for details.

=cut


Anansi::Component::addChannel('Anansi::Database::Oracle', 'COMMIT' => 'Anansi::DatabaseComponent::commit');


=head3 connect

See L for details.  Overridden by L.

=cut


=head3 disconnect

See L for details.

=cut


Anansi::Component::addChannel('Anansi::Database::Oracle', 'DISCONNECT' => 'Anansi::DatabaseComponent::disconnect');


=head3 finalise

See L for details.  Overrides L.  A virtual method.

=cut


=head3 finish

See L for details.

=cut


Anansi::Component::addChannel('Anansi::Database::Oracle', 'FINISH' => 'Anansi::DatabaseComponent::finish');


=head3 handle

See L for details.

=cut


Anansi::Component::addChannel('Anansi::Database::Oracle', 'HANDLE' => 'Anansi::DatabaseComponent::handle');


=head3 initialise

See L for details.  Overrides L.  A virtual method.

=cut


=head3 prepare

See L for details.

=cut


Anansi::Component::addChannel('Anansi::Database::Oracle', 'PREPARE' => 'Anansi::DatabaseComponent::prepare');


=head3 rollback

See L for details.

=cut


Anansi::Component::addChannel('Anansi::Database::Oracle', 'ROLLBACK' => 'Anansi::DatabaseComponent::rollback');


=head3 statement

See L for details.

=cut


Anansi::Component::addChannel('Anansi::Database::Oracle', 'STATEMENT' => 'Anansi::DatabaseComponent::statement');


=head3 validate

See L for details.  Overridden by L.

=cut


=head2 connect

    if(Anansi::Database::Oracle::connect(
        $OBJECT,
        undef,
        DATABASE => 'someDatabase',
        PASSWORD => 'somePassword',
        USERNAME => 'someUser',
    ));

    if($OBJECT->connect(
        undef,
        DATABASE => 'someDatabase',
        PASSWORD => 'somePassword',
        USERNAME => 'someUser',
    ));

=over 4

=item self I<(Blessed Hash, Required)>

An object of this namespace.

=item channel I<(String, Required)>

The abstract identifier of a subroutine.

=item parameters I<(Hash, Optional)>

Named parameters.

=over 4

=item AutoCommit I<(String, Optional)>

Defines whether the Oracle driver automatically saves any changes made to the
B.  A value of B<1> I<(one)> means changes will be saved, a value of
B<0> I<(zero)> means changes will need to be manually saved.  Changes are not
saved by default.

=item DATABASE I<(String, Optional)>

The name of the Oracle database.  The content of the I environment
variable is used by default.

=item HOSTNAME I<(String, Optional)>

The IP address of the computer where the Oracle B is hosted.  A value
of B<127.0.0.1> is used by default.

=item PASSWORD I<(String, Optional)>

The password of the B that is accessing the Oracle database.  A value
of B is used by default.

=item PORT I<(String, Optional)>

The IP address port number of the computer where the Oracle B is
hosted.  A value of B<1521> I<(one five two one)> is used by default.

=item PrintError I<(String, Optional)>

Defines whether the Oracle driver will use the B function.  A value of B<1>
I<(one)> means errors will be output using B, a value of B<0> I<(zero)>
means errors will not be output in this way.  Errors are output by default.

=item RaiseError I<(String, Optional)>

Defines whether the Oracle driver will use the B function.  A value of B<1>
I<(one)> means errors will be output using B, a value of B<0> I<(zero)>
means errors will not be output in this way.  Errors are output by default.

=item USERNAME I<(String, Optional)>

The user that is accessing the Oracle database.  A value of B is used by
default.

=back

=back

Overrides L.

=cut


sub connect {
    my ($self, $channel, %parameters) = @_;
    return $self->SUPER::connect(
        undef,
        INPUT => [
            {
                INPUT => [
                    'dbi:Oracle:host=', {
                        DEFAULT => '127.0.0.1',
                        NAME => 'HOST',
                        REF => '',
                    },
                    ';sid=', {
                        DEFAULT => $ENV{ORACLE_SID} || '',
                        NAME => 'DATABASE',
                        REF => '',
                    },
                    ';port=', {
                        DEFAULT => '1521',
                        NAME => 'PORT',
                        REF => '',
                    }
                ],
                REF => '',
            }, {
                NAME => 'USERNAME',
                REF => '',
            }, {
                NAME => 'PASSWORD',
                REF => '',
            }, {
                INPUT => [
                    {
                        DEFAULT => 0,
                        NAME => 'AutoCommit',
                        REF => '',
                    }, {
                        DEFAULT => 1,
                        NAME => 'PrintError',
                        REF => '',
                    }, {
                        DEFAULT => 1,
                        NAME => 'RaiseError',
                        REF => '',
                    }
                ],
                REF => 'HASH',
            }
        ],
        (%parameters),
    );
}

Anansi::Component::addChannel('Anansi::Database::Oracle', 'CONNECT' => 'connect');


=head2 validate

    if(1 == Anansi::Database::Oracle::validate($OBJECT, undef));

    if(1 == Anansi::Database::Oracle::channel($OBJECT, 'VALIDATE_AS_APPROPRIATE'));

    if(1 == Anansi::Database::Oracle->validate(undef));

    if(1 == Anansi::Database::Oracle->channel('VALIDATE_AS_APPROPRIATE'));

    if(1 == $OBJECT->validate(undef, DRIVER => 'Oracle'));

    if(1 == $OBJECT->channel('VALIDATE_AS_APPROPRIATE', DRIVER => 'Oracle'));

    if(1 == Anansi::Database::Oracle->validate(undef, DRIVER => 'Oracle'));

    if(1 == Anansi::Database::Oracle->channel('VALIDATE_AS_APPROPRIATE', DRIVER => 'Oracle'));

=over 4

=item self I<(Blessed Hash B String, Required)>

Either an object or a string of this namespace.

=item channel I<(String, Required)>

The abstract identifier of a subroutine.

=item parameters I<(Hash, Optional)>

Named parameters.

=over 4

=item DRIVER

When the B parameter is defined as I then this database driver
component will be used otherwise an attempt will be made to use this driver.

=back

=back

Overrides L.

=cut


sub validate {
    my ($self, $channel, %parameters) = @_;
    $parameters{DRIVERS} = 'Oracle';
    return $self->SUPER::validate(undef, (%parameters));
}


Anansi::Component::addChannel('Anansi::Database::Oracle', 'VALIDATE_AS_APPROPRIATE' => 'validate');


=head1 NOTES

This module is designed to make it simple, easy and quite fast to code your
design in perl.  If for any reason you feel that it doesn't achieve these goals
then please let me know.  I am here to help.  All constructive criticisms are
also welcomed.

=cut


=head1 AUTHOR

Kevin Treleaven  treleaven I net>

=cut


1;