view release on metacpan or  search on metacpan

lib/DBD/Unify/GetInfo.pm  view on Meta::CPAN

package DBD::Unify::GetInfo;

# The %info hash was automatically generated by
# DBI::DBD::Metadata::write_getinfo_pm v2.008696.
# And manually reformatted into readable style

our $VERSION = "0.96";

use strict;
use warnings;

use DBD::Unify;

# Beware: not officially documented interfaces...
# use DBI::Const::GetInfoType qw(%GetInfoType);
# use DBI::Const::GetInfoReturn qw(%GetInfoReturnTypes %GetInfoReturnValues);

my $sql_driver     = "Unify";
my $sql_ver_fmt    = "%02d.%02d.0000";   # ODBC version string: ##.##.#####
my $sql_driver_ver = sprintf $sql_ver_fmt, split m/\./, $DBD::Unify::VERSION;

my @Keywords = qw(
    ACCESS AMOUNT ANSI AUTO
    BASE BINARY BTREE BUFFER BYTE
    COBOL COLUMNS CONFIGURATION CONST CONTIGUOUS CURAID CURRENCY
    DATA DATABASE DATETIME DBA DEFER DEMOTING DESCRIPTION DEVICE DIRECT DISPLAY
	DOUBLE_PRECISION
    EDIT ESTIMATED EXTERN
    FILEFIXED FORCE
    HASH HELP HUGE
    INDICATOR_TYPE
    LENGTH LINES LINK LOCKS LOGID LOGNAME LONG
    MODE MOVE
    OFFSET OVERFLOW OVERWRITE OWNER
    PATH PIC PICTURE PLI PREALLOCATED PREFERRED PRIVATE
    RECOVERABLE REGLIKE RELEASING RENAME RESTART ROOT ROWID
    SCAN SCATTERED SCHEMAS SEGMENT SEPARATE SEPARATOR SHLIKE SHORT SIGN SLOCK
	SPLIT SQLCODE_TYPE SQL_STANDARD START STATIC STOP SYNONYM
    TABLES TEXT TRIGGER TYPE
    UAMT UAMT64 UBINBUF UCHAR UDATE UHAMT UHDATE UINT64 UNIFY_2000 UNLIMITED
	UNLOCK USE UTIME UTXTBUF
    VOID VOLATILE VOLUME VOLUMES
    XLOCK
    );

sub sql_keywords {
    return join ",", @Keywords;
    } # sql_keywords

sub sql_data_source_name {
    my $dbh = shift;
    return "dbi:$sql_driver:" . $dbh->{Name};
    } # sql_data_source_name

sub sql_user_name {
    my $dbh = shift;
    # CURRENT_USER is a non-standard attribute, probably undef
    # Username is a standard DBI attribute
    return $dbh->{CURRENT_USER} || $dbh->{Username};
    } # sql_user_name

our %info = (
     20 => "Y",                           # SQL_ACCESSIBLE_PROCEDURES
     19 => "Y",                           # SQL_ACCESSIBLE_TABLES
      0 => 1,                             # SQL_ACTIVE_CONNECTIONS
#   116 => undef,                         # SQL_ACTIVE_ENVIRONMENTS
      1 => 0,                             # SQL_ACTIVE_STATEMENTS
#   169 => undef,                         # SQL_AGGREGATE_FUNCTIONS
#   117 => undef,                         # SQL_ALTER_DOMAIN
     86 => 3,                             # SQL_ALTER_TABLE
# 10021 => undef,                         # SQL_ASYNC_MODE
#   120 => undef,                         # SQL_BATCH_ROW_COUNT
#   121 => undef,                         # SQL_BATCH_SUPPORT
     82 => 0,                             # SQL_BOOKMARK_PERSISTENCE
#   114 => 0,                             # SQL_CATALOG_LOCATION
# 10003 => undef,                         # SQL_CATALOG_NAME
#    41 => "",                            # SQL_CATALOG_NAME_SEPARATOR
#    42 => "",                            # SQL_CATALOG_TERM
#    92 => 0,                             # SQL_CATALOG_USAGE
# 10004 => undef,                         # SQL_COLLATING_SEQUENCE