File Coverage

blib/lib/DBI/Const/GetInfoType.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             # $Id: GetInfoType.pm 8696 2007-01-24 23:12:38Z Tim $
2             #
3             # Copyright (c) 2002 Tim Bunce Ireland
4             #
5             # Constant data describing info type codes for the DBI getinfo function.
6             #
7             # You may distribute under the terms of either the GNU General Public
8             # License or the Artistic License, as specified in the Perl README file.
9              
10             package DBI::Const::GetInfoType;
11              
12 8     8   4170 use strict;
  8         17  
  8         200  
13              
14 8     8   40 use Exporter ();
  8         14  
  8         147  
15              
16 8     8   36 use vars qw(@ISA @EXPORT @EXPORT_OK %GetInfoType);
  8         12  
  8         736  
17              
18             @ISA = qw(Exporter);
19             @EXPORT = qw(%GetInfoType);
20              
21             my
22             $VERSION = "2.008697";
23              
24             =head1 NAME
25              
26             DBI::Const::GetInfoType - Data describing GetInfo type codes
27              
28             =head1 SYNOPSIS
29              
30             use DBI::Const::GetInfoType;
31              
32             =head1 DESCRIPTION
33              
34             Imports a %GetInfoType hash which maps names for GetInfo Type Codes
35             into their corresponding numeric values. For example:
36              
37             $database_version = $dbh->get_info( $GetInfoType{SQL_DBMS_VER} );
38              
39             The interface to this module is new and nothing beyond what is
40             written here is guaranteed.
41              
42             =cut
43              
44 8     8   1538 use DBI::Const::GetInfo::ANSI (); # liable to change
  8         18  
  8         157  
45 8     8   2146 use DBI::Const::GetInfo::ODBC (); # liable to change
  8         27  
  8         345  
46              
47             %GetInfoType =
48             (
49             %DBI::Const::GetInfo::ANSI::InfoTypes # liable to change
50             , %DBI::Const::GetInfo::ODBC::InfoTypes # liable to change
51             );
52              
53             1;