Initial Commit
This commit is contained in:
851
database/perl/vendor/lib/DBI/DBD/SqlEngine/Developers.pod
vendored
Normal file
851
database/perl/vendor/lib/DBI/DBD/SqlEngine/Developers.pod
vendored
Normal file
@@ -0,0 +1,851 @@
|
||||
=head1 NAME
|
||||
|
||||
DBI::DBD::SqlEngine::Developers - Developers documentation for DBI::DBD::SqlEngine
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
package DBD::myDriver;
|
||||
|
||||
use base qw(DBI::DBD::SqlEngine);
|
||||
|
||||
sub driver
|
||||
{
|
||||
...
|
||||
my $drh = $proto->SUPER::driver($attr);
|
||||
...
|
||||
return $drh->{class};
|
||||
}
|
||||
|
||||
sub CLONE { ... }
|
||||
|
||||
package DBD::myDriver::dr;
|
||||
|
||||
@ISA = qw(DBI::DBD::SqlEngine::dr);
|
||||
|
||||
sub data_sources { ... }
|
||||
...
|
||||
|
||||
package DBD::myDriver::db;
|
||||
|
||||
@ISA = qw(DBI::DBD::SqlEngine::db);
|
||||
|
||||
sub init_valid_attributes { ... }
|
||||
sub init_default_attributes { ... }
|
||||
sub set_versions { ... }
|
||||
sub validate_STORE_attr { my ($dbh, $attrib, $value) = @_; ... }
|
||||
sub validate_FETCH_attr { my ($dbh, $attrib) = @_; ... }
|
||||
sub get_myd_versions { ... }
|
||||
sub get_avail_tables { ... }
|
||||
|
||||
package DBD::myDriver::st;
|
||||
|
||||
@ISA = qw(DBI::DBD::SqlEngine::st);
|
||||
|
||||
sub FETCH { ... }
|
||||
sub STORE { ... }
|
||||
|
||||
package DBD::myDriver::Statement;
|
||||
|
||||
@ISA = qw(DBI::DBD::SqlEngine::Statement);
|
||||
|
||||
sub open_table { ... }
|
||||
|
||||
package DBD::myDriver::Table;
|
||||
|
||||
@ISA = qw(DBI::DBD::SqlEngine::Table);
|
||||
|
||||
my %reset_on_modify = (
|
||||
myd_abc => "myd_foo",
|
||||
myd_mno => "myd_bar",
|
||||
);
|
||||
__PACKAGE__->register_reset_on_modify( \%reset_on_modify );
|
||||
my %compat_map = (
|
||||
abc => 'foo_abc',
|
||||
xyz => 'foo_xyz',
|
||||
);
|
||||
__PACKAGE__->register_compat_map( \%compat_map );
|
||||
|
||||
sub bootstrap_table_meta { ... }
|
||||
sub init_table_meta { ... }
|
||||
sub table_meta_attr_changed { ... }
|
||||
sub open_data { ... }
|
||||
|
||||
sub new { ... }
|
||||
|
||||
sub fetch_row { ... }
|
||||
sub push_row { ... }
|
||||
sub push_names { ... }
|
||||
sub seek { ... }
|
||||
sub truncate { ... }
|
||||
sub drop { ... }
|
||||
|
||||
# optimize the SQL engine by add one or more of
|
||||
sub update_current_row { ... }
|
||||
# or
|
||||
sub update_specific_row { ... }
|
||||
# or
|
||||
sub update_one_row { ... }
|
||||
# or
|
||||
sub insert_new_row { ... }
|
||||
# or
|
||||
sub delete_current_row { ... }
|
||||
# or
|
||||
sub delete_one_row { ... }
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
This document describes the interface of DBI::DBD::SqlEngine for DBD
|
||||
developers who write DBI::DBD::SqlEngine based DBI drivers. It supplements
|
||||
L<DBI::DBD> and L<DBI::DBD::SqlEngine::HowTo>, which you should read first.
|
||||
|
||||
=head1 CLASSES
|
||||
|
||||
Each DBI driver must provide a package global C<< driver >> method and
|
||||
three DBI related classes:
|
||||
|
||||
=over 4
|
||||
|
||||
=item DBI::DBD::SqlEngine::dr
|
||||
|
||||
Driver package, contains the methods DBI calls indirectly via DBI
|
||||
interface:
|
||||
|
||||
DBI->connect ('DBI:DBM:', undef, undef, {})
|
||||
|
||||
# invokes
|
||||
package DBD::DBM::dr;
|
||||
@DBD::DBM::dr::ISA = qw(DBI::DBD::SqlEngine::dr);
|
||||
|
||||
sub connect ($$;$$$)
|
||||
{
|
||||
...
|
||||
}
|
||||
|
||||
Similar for C<data_sources ()> and C<disconnect_all()>.
|
||||
|
||||
Pure Perl DBI drivers derived from DBI::DBD::SqlEngine usually don't need to
|
||||
override any of the methods provided through the DBD::XXX::dr package.
|
||||
However if you need additional initialization not fitting in
|
||||
C<init_valid_attributes()> and C<init_default_attributes()> of you're ::db
|
||||
class, the connect method might be the final place to be modified.
|
||||
|
||||
=item DBI::DBD::SqlEngine::db
|
||||
|
||||
Contains the methods which are called through DBI database handles
|
||||
(C<< $dbh >>). e.g.,
|
||||
|
||||
$sth = $dbh->prepare ("select * from foo");
|
||||
# returns the f_encoding setting for table foo
|
||||
$dbh->csv_get_meta ("foo", "f_encoding");
|
||||
|
||||
DBI::DBD::SqlEngine provides the typical methods required here. Developers who
|
||||
write DBI drivers based on DBI::DBD::SqlEngine need to override the methods
|
||||
C<< set_versions >> and C<< init_valid_attributes >>.
|
||||
|
||||
=item DBI::DBD::SqlEngine::TieMeta;
|
||||
|
||||
Provides the tie-magic for C<< $dbh->{$drv_pfx . "_meta"} >>. Routes
|
||||
C<STORE> through C<< $drv->set_sql_engine_meta() >> and C<FETCH> through
|
||||
C<< $drv->get_sql_engine_meta() >>. C<DELETE> is not supported, you have
|
||||
to execute a C<DROP TABLE> statement, where applicable.
|
||||
|
||||
=item DBI::DBD::SqlEngine::TieTables;
|
||||
|
||||
Provides the tie-magic for tables in C<< $dbh->{$drv_pfx . "_meta"} >>.
|
||||
Routes C<STORE> though C<< $tblClass->set_table_meta_attr() >> and C<FETCH>
|
||||
though C<< $tblClass->get_table_meta_attr() >>. C<DELETE> removes an
|
||||
attribute from the I<meta object> retrieved by
|
||||
C<< $tblClass->get_table_meta() >>.
|
||||
|
||||
=item DBI::DBD::SqlEngine::st
|
||||
|
||||
Contains the methods to deal with prepared statement handles. e.g.,
|
||||
|
||||
$sth->execute () or die $sth->errstr;
|
||||
|
||||
=item DBI::DBD::SqlEngine::TableSource;
|
||||
|
||||
Base class for 3rd party table sources:
|
||||
|
||||
$dbh->{sql_table_source} = "DBD::Foo::TableSource";
|
||||
|
||||
=item DBI::DBD::SqlEngine::DataSource;
|
||||
|
||||
Base class for 3rd party data sources:
|
||||
|
||||
$dbh->{sql_data_source} = "DBD::Foo::DataSource";
|
||||
|
||||
=item DBI::DBD::SqlEngine::Statement;
|
||||
|
||||
Base class for derived drivers statement engine. Implements C<open_table>.
|
||||
|
||||
=item DBI::DBD::SqlEngine::Table;
|
||||
|
||||
Contains tailoring between SQL engine's requirements and
|
||||
C<DBI::DBD::SqlEngine> magic for finding the right tables and storage.
|
||||
Builds bridges between C<sql_meta> handling of C<DBI::DBD::SqlEngine::db>,
|
||||
table initialization for SQL engines and I<meta object>'s attribute
|
||||
management for derived drivers.
|
||||
|
||||
=back
|
||||
|
||||
=head2 DBI::DBD::SqlEngine
|
||||
|
||||
This is the main package containing the routines to initialize
|
||||
DBI::DBD::SqlEngine based DBI drivers. Primarily the
|
||||
C<< DBI::DBD::SqlEngine::driver >> method is invoked, either directly
|
||||
from DBI when the driver is initialized or from the derived class.
|
||||
|
||||
package DBD::DBM;
|
||||
|
||||
use base qw( DBI::DBD::SqlEngine );
|
||||
|
||||
sub driver
|
||||
{
|
||||
my ( $class, $attr ) = @_;
|
||||
...
|
||||
my $drh = $class->SUPER::driver( $attr );
|
||||
...
|
||||
return $drh;
|
||||
}
|
||||
|
||||
It is not necessary to implement your own driver method as long as
|
||||
additional initialization (e.g. installing more private driver
|
||||
methods) is not required. You do not need to call C<< setup_driver >>
|
||||
as DBI::DBD::SqlEngine takes care of it.
|
||||
|
||||
=head2 DBI::DBD::SqlEngine::dr
|
||||
|
||||
The driver package contains the methods DBI calls indirectly via the DBI
|
||||
interface (see L<DBI/DBI Class Methods>).
|
||||
|
||||
DBI::DBD::SqlEngine based DBI drivers usually do not need to implement anything here,
|
||||
it is enough to do the basic initialization:
|
||||
|
||||
package DBD:XXX::dr;
|
||||
|
||||
@DBD::XXX::dr::ISA = qw (DBI::DBD::SqlEngine::dr);
|
||||
$DBD::XXX::dr::imp_data_size = 0;
|
||||
$DBD::XXX::dr::data_sources_attr = undef;
|
||||
$DBD::XXX::ATTRIBUTION = "DBD::XXX $DBD::XXX::VERSION by Hans Mustermann";
|
||||
|
||||
=head3 Methods provided by C<< DBI::DBD::SqlEngine::dr >>:
|
||||
|
||||
=over 4
|
||||
|
||||
=item connect
|
||||
|
||||
Supervises the driver bootstrap when calling
|
||||
|
||||
DBI->connect( "dbi:Foo", , , { ... } );
|
||||
|
||||
First it instantiates a new driver using C<DBI::_new_dbh>. After that,
|
||||
initial bootstrap of the newly instantiated driver is done by
|
||||
|
||||
$dbh->func( 0, "init_default_attributes" );
|
||||
|
||||
The first argument (C<0>) signals that this is the very first call to
|
||||
C<init_default_attributes>. Modern drivers understand that and do early
|
||||
stage setup here after calling
|
||||
|
||||
package DBD::Foo::db;
|
||||
our @DBD::Foo::db::ISA = qw(DBI::DBD::SqlEngine::db);
|
||||
|
||||
sub init_default_attributes
|
||||
{
|
||||
my ($dbh, $phase) = @_;
|
||||
$dbh->SUPER::init_default_attributes($phase);
|
||||
...; # own setup code, maybe separated by phases
|
||||
}
|
||||
|
||||
When the C<$phase> argument is passed down until
|
||||
C<DBI::DBD::SqlEngine::db::init_default_attributes>, C<connect()> recognizes
|
||||
a I<modern> driver and initializes the attributes from I<DSN> and I<$attr>
|
||||
arguments passed via C<< DBI->connect( $dsn, $user, $pass, \%attr ) >>.
|
||||
|
||||
At the end of the attribute initialization after I<phase 0>, C<connect()>
|
||||
invoked C<init_default_attributes> again for I<phase 1>:
|
||||
|
||||
$dbh->func( 1, "init_default_attributes" );
|
||||
|
||||
=item data_sources
|
||||
|
||||
Returns a list of I<DSN>'s using the C<data_sources> method of the
|
||||
class specified in C<< $dbh->{sql_table_source} >> or via C<\%attr>:
|
||||
|
||||
@ary = DBI->data_sources($driver);
|
||||
@ary = DBI->data_sources($driver, \%attr);
|
||||
|
||||
=item disconnect_all
|
||||
|
||||
C<DBI::DBD::SqlEngine> doesn't have an overall driver cache, so nothing
|
||||
happens here at all.
|
||||
|
||||
=back
|
||||
|
||||
=head2 DBI::DBD::SqlEngine::db
|
||||
|
||||
This package defines the database methods, which are called via the DBI
|
||||
database handle C<< $dbh >>.
|
||||
|
||||
=head3 Methods provided by C<< DBI::DBD::SqlEngine::db >>:
|
||||
|
||||
=over 4
|
||||
|
||||
=item ping
|
||||
|
||||
Simply returns the content of the C<< Active >> attribute. Override
|
||||
when your driver needs more complicated actions here.
|
||||
|
||||
=item prepare
|
||||
|
||||
Prepares a new SQL statement to execute. Returns a statement handle,
|
||||
C<< $sth >> - instance of the DBD:XXX::st. It is neither required nor
|
||||
recommended to override this method.
|
||||
|
||||
=item validate_FETCH_attr
|
||||
|
||||
Called by C<FETCH> to allow inherited drivers do their own attribute
|
||||
name validation. Calling convention is similar to C<FETCH> and the
|
||||
return value is the approved attribute name.
|
||||
|
||||
return $validated_attribute_name;
|
||||
|
||||
In case of validation fails (e.g. accessing private attribute or similar),
|
||||
C<validate_FETCH_attr> is permitted to throw an exception.
|
||||
|
||||
=item FETCH
|
||||
|
||||
Fetches an attribute of a DBI database object. Private handle attributes
|
||||
must have a prefix (this is mandatory). If a requested attribute is
|
||||
detected as a private attribute without a valid prefix, the driver prefix
|
||||
(written as C<$drv_prefix>) is added.
|
||||
|
||||
The driver prefix is extracted from the attribute name and verified against
|
||||
C<< $dbh->{ $drv_prefix . "valid_attrs" } >> (when it exists). If the
|
||||
requested attribute value is not listed as a valid attribute, this method
|
||||
croaks. If the attribute is valid and readonly (listed in C<< $dbh->{
|
||||
$drv_prefix . "readonly_attrs" } >> when it exists), a real copy of the
|
||||
attribute value is returned. So it's not possible to modify
|
||||
C<f_valid_attrs> from outside of DBI::DBD::SqlEngine::db or a derived class.
|
||||
|
||||
=item validate_STORE_attr
|
||||
|
||||
Called by C<STORE> to allow inherited drivers do their own attribute
|
||||
name validation. Calling convention is similar to C<STORE> and the
|
||||
return value is the approved attribute name followed by the approved
|
||||
new value.
|
||||
|
||||
return ($validated_attribute_name, $validated_attribute_value);
|
||||
|
||||
In case of validation fails (e.g. accessing private attribute or similar),
|
||||
C<validate_STORE_attr> is permitted to throw an exception
|
||||
(C<DBI::DBD::SqlEngine::db::validate_STORE_attr> throws an exception when
|
||||
someone tries to assign value other than C<SQL_IC_UPPER .. SQL_IC_MIXED>
|
||||
to C<< $dbh->{sql_identifier_case} >> or
|
||||
C<< $dbh->{sql_quoted_identifier_case} >>).
|
||||
|
||||
=item STORE
|
||||
|
||||
Stores a database private attribute. Private handle attributes must have a
|
||||
prefix (this is mandatory). If a requested attribute is detected as a private
|
||||
attribute without a valid prefix, the driver prefix (written as
|
||||
C<$drv_prefix>) is added. If the database handle has an attribute
|
||||
C<${drv_prefix}_valid_attrs> - for attribute names which are not listed in
|
||||
that hash, this method croaks. If the database handle has an attribute
|
||||
C<${drv_prefix}_readonly_attrs>, only attributes which are not listed there
|
||||
can be stored (once they are initialized). Trying to overwrite such an
|
||||
immutable attribute forces this method to croak.
|
||||
|
||||
An example of a valid attributes list can be found in
|
||||
C<< DBI::DBD::SqlEngine::db::init_valid_attributes >>.
|
||||
|
||||
=item set_versions
|
||||
|
||||
This method sets the attributes C<< f_version >>, C<< sql_nano_version >>,
|
||||
C<< sql_statement_version >> and (if not prohibited by a restrictive
|
||||
C<< ${prefix}_valid_attrs >>) C<< ${prefix}_version >>.
|
||||
|
||||
This method is called at the end of the C<< connect () >> phase.
|
||||
|
||||
When overriding this method, do not forget to invoke the superior one.
|
||||
|
||||
=item init_valid_attributes
|
||||
|
||||
This method is called after the database handle is instantiated as the
|
||||
first attribute initialization.
|
||||
|
||||
C<< DBI::DBD::SqlEngine::db::init_valid_attributes >> initializes the
|
||||
attributes C<sql_valid_attrs> and C<sql_readonly_attrs>.
|
||||
|
||||
When overriding this method, do not forget to invoke the superior one,
|
||||
preferably before doing anything else.
|
||||
|
||||
=item init_default_attributes
|
||||
|
||||
This method is called after the database handle is instantiated to
|
||||
initialize the default attributes. It expects one argument: C<$phase>.
|
||||
If C<$phase> is not given, C<connect> of C<DBI::DBD::SqlEngine::dr>
|
||||
expects this is an old-fashioned driver which isn't capable of multi-phased
|
||||
initialization.
|
||||
|
||||
C<< DBI::DBD::SqlEngine::db::init_default_attributes >> initializes the
|
||||
attributes C<sql_identifier_case>, C<sql_quoted_identifier_case>,
|
||||
C<sql_handler>, C<sql_init_order>, C<sql_meta>, C<sql_engine_version>,
|
||||
C<sql_nano_version> and C<sql_statement_version> when L<SQL::Statement>
|
||||
is available.
|
||||
|
||||
It sets C<sql_init_order> to the given C<$phase>.
|
||||
|
||||
When the derived implementor class provides the attribute to validate
|
||||
attributes (e.g. C<< $dbh->{dbm_valid_attrs} = {...}; >>) or the attribute
|
||||
containing the immutable attributes (e.g. C<< $dbh->{dbm_readonly_attrs}
|
||||
= {...}; >>), the attributes C<drv_valid_attrs>, C<drv_readonly_attrs> and
|
||||
C<drv_version> are added (when available) to the list of valid and
|
||||
immutable attributes (where C<drv_> is interpreted as the driver prefix).
|
||||
|
||||
=item get_versions
|
||||
|
||||
This method is called by the code injected into the instantiated driver to
|
||||
provide the user callable driver method C<< ${prefix}versions >> (e.g.
|
||||
C<< dbm_versions >>, C<< csv_versions >>, ...).
|
||||
|
||||
The DBI::DBD::SqlEngine implementation returns all version information known by
|
||||
DBI::DBD::SqlEngine (e.g. DBI version, Perl version, DBI::DBD::SqlEngine version and
|
||||
the SQL handler version).
|
||||
|
||||
C<get_versions> takes the C<$dbh> as the first argument and optionally a
|
||||
second argument containing a table name. The second argument is not
|
||||
evaluated in C<< DBI::DBD::SqlEngine::db::get_versions >> itself - but
|
||||
might be in the future.
|
||||
|
||||
If the derived implementor class provides a method named
|
||||
C<get_${drv_prefix}versions>, this is invoked and the return value of
|
||||
it is associated to the derived driver name:
|
||||
|
||||
if (my $dgv = $dbh->{ImplementorClass}->can ("get_" . $drv_prefix . "versions") {
|
||||
(my $derived_driver = $dbh->{ImplementorClass}) =~ s/::db$//;
|
||||
$versions{$derived_driver} = &$dgv ($dbh, $table);
|
||||
}
|
||||
|
||||
Override it to add more version information about your module, (e.g.
|
||||
some kind of parser version in case of DBD::CSV, ...), if one line is not
|
||||
enough room to provide all relevant information.
|
||||
|
||||
=item sql_parser_object
|
||||
|
||||
Returns a L<SQL::Parser> instance, when C<< sql_handler >> is set to
|
||||
"SQL::Statement". The parser instance is stored in C<< sql_parser_object >>.
|
||||
|
||||
It is not recommended to override this method.
|
||||
|
||||
=item disconnect
|
||||
|
||||
Disconnects from a database. All local table information is discarded and
|
||||
the C<< Active >> attribute is set to 0.
|
||||
|
||||
=item type_info_all
|
||||
|
||||
Returns information about all the types supported by DBI::DBD::SqlEngine.
|
||||
|
||||
=item table_info
|
||||
|
||||
Returns a statement handle which is prepared to deliver information about
|
||||
all known tables.
|
||||
|
||||
=item list_tables
|
||||
|
||||
Returns a list of all known table names.
|
||||
|
||||
=item quote
|
||||
|
||||
Quotes a string for use in SQL statements.
|
||||
|
||||
=item commit
|
||||
|
||||
Warns about a useless call (if warnings enabled) and returns.
|
||||
DBI::DBD::SqlEngine is typically a driver which commits every action
|
||||
instantly when executed.
|
||||
|
||||
=item rollback
|
||||
|
||||
Warns about a useless call (if warnings enabled) and returns.
|
||||
DBI::DBD::SqlEngine is typically a driver which commits every action
|
||||
instantly when executed.
|
||||
|
||||
=back
|
||||
|
||||
=head3 Attributes used by C<< DBI::DBD::SqlEngine::db >>:
|
||||
|
||||
This section describes attributes which are important to developers of DBI
|
||||
Database Drivers derived from C<DBI::DBD::SqlEngine>.
|
||||
|
||||
=over 4
|
||||
|
||||
=item sql_init_order
|
||||
|
||||
This attribute contains a hash with priorities as key and an array
|
||||
containing the C<$dbh> attributes to be initialized during before/after
|
||||
other attributes.
|
||||
|
||||
C<DBI::DBD::SqlEngine> initializes following attributes:
|
||||
|
||||
$dbh->{sql_init_order} = {
|
||||
0 => [qw( Profile RaiseError PrintError AutoCommit )],
|
||||
90 => [ "sql_meta", $dbh->{$drv_pfx_meta} ? $dbh->{$drv_pfx_meta} : () ]
|
||||
}
|
||||
|
||||
The default priority of not listed attribute keys is C<50>. It is well
|
||||
known that a lot of attributes needed to be set before some table settings
|
||||
are initialized. For example, for L<DBD::DBM>, when using
|
||||
|
||||
my $dbh = DBI->connect( "dbi:DBM:", undef, undef, {
|
||||
f_dir => "/path/to/dbm/databases",
|
||||
dbm_type => "BerkeleyDB",
|
||||
dbm_mldbm => "JSON", # use MLDBM::Serializer::JSON
|
||||
dbm_tables => {
|
||||
quick => {
|
||||
dbm_type => "GDBM_File",
|
||||
dbm_MLDBM => "FreezeThaw"
|
||||
}
|
||||
}
|
||||
});
|
||||
|
||||
This defines a known table C<quick> which uses the L<GDBM_File> backend and
|
||||
L<FreezeThaw> as serializer instead of the overall default L<BerkeleyDB> and
|
||||
L<JSON>. B<But> all files containing the table data have to be searched in
|
||||
C<< $dbh->{f_dir} >>, which requires C<< $dbh->{f_dir} >> must be initialized
|
||||
before C<< $dbh->{sql_meta}->{quick} >> is initialized by
|
||||
C<bootstrap_table_meta> method of L</DBI::DBD::SqlEngine::Table> to get
|
||||
C<< $dbh->{sql_meta}->{quick}->{f_dir} >> being initialized properly.
|
||||
|
||||
=item sql_init_phase
|
||||
|
||||
This attribute is only set during the initialization steps of the DBI
|
||||
Database Driver. It contains the value of the currently run initialization
|
||||
phase. Currently supported phases are I<phase 0> and I<phase 1>. This
|
||||
attribute is set in C<init_default_attributes> and removed in C<init_done>.
|
||||
|
||||
=item sql_engine_in_gofer
|
||||
|
||||
This value has a true value in case of this driver is operated via
|
||||
L<DBD::Gofer>. The impact of being operated via Gofer is a read-only
|
||||
driver (not read-only databases!), so you cannot modify any attributes
|
||||
later - neither any table settings. B<But> you won't get an error in
|
||||
cases you modify table attributes, so please carefully watch
|
||||
C<sql_engine_in_gofer>.
|
||||
|
||||
=item sql_table_source
|
||||
|
||||
Names a class which is responsible for delivering I<data sources> and
|
||||
I<available tables> (Database Driver related). I<data sources> here
|
||||
refers to L<DBI/data_sources>, not C<sql_data_source>.
|
||||
|
||||
See L</DBI::DBD::SqlEngine::TableSource> for details.
|
||||
|
||||
=item sql_data_source
|
||||
|
||||
Name a class which is responsible for handling table resources open
|
||||
and completing table names requested via SQL statements.
|
||||
|
||||
See L</DBI::DBD::SqlEngine::DataSource> for details.
|
||||
|
||||
=item sql_dialect
|
||||
|
||||
Controls the dialect understood by SQL::Parser. Possible values (delivery
|
||||
state of SQL::Statement):
|
||||
|
||||
* ANSI
|
||||
* CSV
|
||||
* AnyData
|
||||
|
||||
Defaults to "CSV". Because an SQL::Parser is instantiated only once and
|
||||
SQL::Parser doesn't allow one to modify the dialect once instantiated,
|
||||
it's strongly recommended to set this flag before any statement is
|
||||
executed (best place is connect attribute hash).
|
||||
|
||||
=back
|
||||
|
||||
=head2 DBI::DBD::SqlEngine::st
|
||||
|
||||
Contains the methods to deal with prepared statement handles:
|
||||
|
||||
=over 4
|
||||
|
||||
=item bind_param
|
||||
|
||||
Common routine to bind placeholders to a statement for execution. It
|
||||
is dangerous to override this method without detailed knowledge about
|
||||
the DBI::DBD::SqlEngine internal storage structure.
|
||||
|
||||
=item execute
|
||||
|
||||
Executes a previously prepared statement (with placeholders, if any).
|
||||
|
||||
=item finish
|
||||
|
||||
Finishes a statement handle, discards all buffered results. The prepared
|
||||
statement is not discarded so the statement can be executed again.
|
||||
|
||||
=item fetch
|
||||
|
||||
Fetches the next row from the result-set. This method may be rewritten
|
||||
in a later version and if it's overridden in a derived class, the
|
||||
derived implementation should not rely on the storage details.
|
||||
|
||||
=item fetchrow_arrayref
|
||||
|
||||
Alias for C<< fetch >>.
|
||||
|
||||
=item FETCH
|
||||
|
||||
Fetches statement handle attributes. Supported attributes (for full overview
|
||||
see L<DBI/Statement Handle Attributes>) are C<NAME>, C<TYPE>, C<PRECISION>
|
||||
and C<NULLABLE>. Each column is returned as C<NULLABLE> which might be wrong
|
||||
depending on the derived backend storage. If the statement handle has
|
||||
private attributes, they can be fetched using this method, too. B<Note> that
|
||||
statement attributes are not associated with any table used in this statement.
|
||||
|
||||
This method usually requires extending in a derived implementation.
|
||||
See L<DBD::CSV> or L<DBD::DBM> for some example.
|
||||
|
||||
=item STORE
|
||||
|
||||
Allows storing of statement private attributes. No special handling is
|
||||
currently implemented here.
|
||||
|
||||
=item rows
|
||||
|
||||
Returns the number of rows affected by the last execute. This method might
|
||||
return C<undef>.
|
||||
|
||||
=back
|
||||
|
||||
=head2 DBI::DBD::SqlEngine::TableSource
|
||||
|
||||
Provides data sources and table information on database driver and database
|
||||
handle level.
|
||||
|
||||
package DBI::DBD::SqlEngine::TableSource;
|
||||
|
||||
sub data_sources ($;$)
|
||||
{
|
||||
my ( $class, $drh, $attrs ) = @_;
|
||||
...
|
||||
}
|
||||
|
||||
sub avail_tables
|
||||
{
|
||||
my ( $class, $drh ) = @_;
|
||||
...
|
||||
}
|
||||
|
||||
The C<data_sources> method is called when the user invokes any of the
|
||||
following:
|
||||
|
||||
@ary = DBI->data_sources($driver);
|
||||
@ary = DBI->data_sources($driver, \%attr);
|
||||
|
||||
@ary = $dbh->data_sources();
|
||||
@ary = $dbh->data_sources(\%attr);
|
||||
|
||||
The C<avail_tables> method is called when the user invokes any of the
|
||||
following:
|
||||
|
||||
@names = $dbh->tables( $catalog, $schema, $table, $type );
|
||||
|
||||
$sth = $dbh->table_info( $catalog, $schema, $table, $type );
|
||||
$sth = $dbh->table_info( $catalog, $schema, $table, $type, \%attr );
|
||||
|
||||
$dbh->func( "list_tables" );
|
||||
|
||||
Every time where an C<\%attr> argument can be specified, this C<\%attr>
|
||||
object's C<sql_table_source> attribute is preferred over the C<$dbh>
|
||||
attribute or the driver default.
|
||||
|
||||
=head2 DBI::DBD::SqlEngine::DataSource
|
||||
|
||||
Provides base functionality for dealing with tables. It is primarily
|
||||
designed for allowing transparent access to files on disk or already
|
||||
opened (file-)streams (e.g. for DBD::CSV).
|
||||
|
||||
Derived classes shall be restricted to similar functionality, too (e.g.
|
||||
opening streams from an archive, transparently compress/uncompress
|
||||
log files before parsing them,
|
||||
|
||||
package DBI::DBD::SqlEngine::DataSource;
|
||||
|
||||
sub complete_table_name ($$;$)
|
||||
{
|
||||
my ( $self, $meta, $table, $respect_case ) = @_;
|
||||
...
|
||||
}
|
||||
|
||||
The method C<complete_table_name> is called when first setting up the
|
||||
I<meta information> for a table:
|
||||
|
||||
"SELECT user.id, user.name, user.shell FROM user WHERE ..."
|
||||
|
||||
results in opening the table C<user>. First step of the table open
|
||||
process is completing the name. Let's imagine you're having a L<DBD::CSV>
|
||||
handle with following settings:
|
||||
|
||||
$dbh->{sql_identifier_case} = SQL_IC_LOWER;
|
||||
$dbh->{f_ext} = '.lst';
|
||||
$dbh->{f_dir} = '/data/web/adrmgr';
|
||||
|
||||
Those settings will result in looking for files matching
|
||||
C<[Uu][Ss][Ee][Rr](\.lst)?$> in C</data/web/adrmgr/>. The scanning of the
|
||||
directory C</data/web/adrmgr/> and the pattern match check will be done
|
||||
in C<DBD::File::DataSource::File> by the C<complete_table_name> method.
|
||||
|
||||
If you intend to provide other sources of data streams than files, in
|
||||
addition to provide an appropriate C<complete_table_name> method, a method
|
||||
to open the resource is required:
|
||||
|
||||
package DBI::DBD::SqlEngine::DataSource;
|
||||
|
||||
sub open_data ($)
|
||||
{
|
||||
my ( $self, $meta, $attrs, $flags ) = @_;
|
||||
...
|
||||
}
|
||||
|
||||
After the method C<open_data> has been run successfully, the table's meta
|
||||
information are in a state which allows the table's data accessor methods
|
||||
will be able to fetch/store row information. Implementation details heavily
|
||||
depends on the table implementation, whereby the most famous is surely
|
||||
L<DBD::File::Table|DBD::File/DBD::File::Table>.
|
||||
|
||||
=head2 DBI::DBD::SqlEngine::Statement
|
||||
|
||||
Derives from DBI::SQL::Nano::Statement for unified naming when deriving
|
||||
new drivers. No additional feature is provided from here.
|
||||
|
||||
=head2 DBI::DBD::SqlEngine::Table
|
||||
|
||||
Derives from DBI::SQL::Nano::Table for unified naming when deriving
|
||||
new drivers.
|
||||
|
||||
You should consult the documentation of C<< SQL::Eval::Table >> (see
|
||||
L<SQL::Eval>) to get more information about the abstract methods of the
|
||||
table's base class you have to override and a description of the table
|
||||
meta information expected by the SQL engines.
|
||||
|
||||
=over 4
|
||||
|
||||
=item bootstrap_table_meta
|
||||
|
||||
Initializes a table meta structure. Can be safely overridden in a
|
||||
derived class, as long as the C<< SUPER >> method is called at the end
|
||||
of the overridden method.
|
||||
|
||||
It copies the following attributes from the database into the table meta data
|
||||
C<< $dbh->{ReadOnly} >> into C<< $meta->{readonly} >>, C<sql_identifier_case>
|
||||
and C<sql_data_source> and makes them sticky to the table.
|
||||
|
||||
This method should be called before you attempt to map between file
|
||||
name and table name to ensure the correct directory, extension etc. are
|
||||
used.
|
||||
|
||||
=item init_table_meta
|
||||
|
||||
Initializes more attributes of the table meta data - usually more
|
||||
expensive ones (e.g. those which require class instantiations) - when
|
||||
the file name and the table name could mapped.
|
||||
|
||||
=item get_table_meta
|
||||
|
||||
Returns the table meta data. If there are none for the required table,
|
||||
a new one is initialized. When after bootstrapping a new I<table_meta>
|
||||
and L<completing the table name|/DBI::DBD::SqlEngine::DataSource> a
|
||||
mapping can be established between an existing I<table_meta> and the
|
||||
new bootstrapped one, the already existing is used and a mapping
|
||||
shortcut between the recent used table name and the already known
|
||||
table name is hold in C<< $dbh->{sql_meta_map} >>. When it fails,
|
||||
nothing is returned. On success, the name of the table and the meta data
|
||||
structure is returned.
|
||||
|
||||
=item get_table_meta_attr
|
||||
|
||||
Returns a single attribute from the table meta data. If the attribute
|
||||
name appears in C<%compat_map>, the attribute name is updated from
|
||||
there.
|
||||
|
||||
=item set_table_meta_attr
|
||||
|
||||
Sets a single attribute in the table meta data. If the attribute
|
||||
name appears in C<%compat_map>, the attribute name is updated from
|
||||
there.
|
||||
|
||||
=item table_meta_attr_changed
|
||||
|
||||
Called when an attribute of the meta data is modified.
|
||||
|
||||
If the modified attribute requires to reset a calculated attribute, the
|
||||
calculated attribute is reset (deleted from meta data structure) and
|
||||
the I<initialized> flag is removed, too. The decision is made based on
|
||||
C<%register_reset_on_modify>.
|
||||
|
||||
=item register_reset_on_modify
|
||||
|
||||
Allows C<set_table_meta_attr> to reset meta attributes when special
|
||||
attributes are modified. For DBD::File, modifying one of C<f_file>, C<f_dir>,
|
||||
C<f_ext> or C<f_lockfile> will reset C<f_fqfn>. DBD::DBM extends the
|
||||
list for C<dbm_type> and C<dbm_mldbm> to reset the value of C<dbm_tietype>.
|
||||
|
||||
If your DBD has calculated values in the meta data area, then call
|
||||
C<register_reset_on_modify>:
|
||||
|
||||
my %reset_on_modify = ( "xxx_foo" => "xxx_bar" );
|
||||
__PACKAGE__->register_reset_on_modify( \%reset_on_modify );
|
||||
|
||||
=item register_compat_map
|
||||
|
||||
Allows C<get_table_meta_attr> and C<set_table_meta_attr> to update the
|
||||
attribute name to the current favored one:
|
||||
|
||||
# from DBD::DBM
|
||||
my %compat_map = ( "dbm_ext" => "f_ext" );
|
||||
__PACKAGE__->register_compat_map( \%compat_map );
|
||||
|
||||
=item open_data
|
||||
|
||||
Called to open the table's data storage. This is silently forwarded
|
||||
to C<< $meta->{sql_data_source}->open_data() >>.
|
||||
|
||||
After this is done, a derived class might add more steps in an overridden
|
||||
C<< open_file >> method.
|
||||
|
||||
=item new
|
||||
|
||||
Instantiates the table. This is done in 3 steps:
|
||||
|
||||
1. get the table meta data
|
||||
2. open the data file
|
||||
3. bless the table data structure using inherited constructor new
|
||||
|
||||
It is not recommended to override the constructor of the table class.
|
||||
Find a reasonable place to add you extensions in one of the above four
|
||||
methods.
|
||||
|
||||
=back
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
The module DBI::DBD::SqlEngine is currently maintained by
|
||||
|
||||
H.Merijn Brand < h.m.brand at xs4all.nl > and
|
||||
Jens Rehsack < rehsack at googlemail.com >
|
||||
|
||||
=head1 COPYRIGHT AND LICENSE
|
||||
|
||||
Copyright (C) 2010 by H.Merijn Brand & Jens Rehsack
|
||||
|
||||
All rights reserved.
|
||||
|
||||
You may freely distribute and/or modify this module under the terms of
|
||||
either the GNU General Public License (GPL) or the Artistic License, as
|
||||
specified in the Perl README file.
|
||||
|
||||
=cut
|
||||
Reference in New Issue
Block a user