← Index
NYTProf Performance Profile   « block view • line view • sub view »
For ddd2.pl
  Run on Tue May 25 16:52:24 2010
Reported on Tue May 25 16:56:50 2010

File /project/perl/lib/DBI/Const/GetInfoType.pm
Statements Executed 20
Statement Execution Time 8.02ms
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11213µs13µsDBI::Const::GetInfoType::::CORE:matchDBI::Const::GetInfoType::CORE:match (opcode)
0000s0sDBI::Const::GetInfoType::::BEGINDBI::Const::GetInfoType::BEGIN
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1# $Id: GetInfoType.pm 8696 2007-01-24 23:12:38Z timbo $
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
10package DBI::Const::GetInfoType;
11
12387µs124µsuse strict;
# spent 24µs making 1 call to strict::import
13
14361µsuse Exporter ();
15
163178µs1380µsuse vars qw(@ISA @EXPORT @EXPORT_OK %GetInfoType);
# spent 380µs making 1 call to vars::import
17
18111µs@ISA = qw(Exporter);
1914µs@EXPORT = qw(%GetInfoType);
20
21my
22157µs113µs$VERSION = sprintf("2.%06d", q$Revision: 8696 $ =~ /(\d+)/o);
# spent 13µs making 1 call to DBI::Const::GetInfoType::CORE:match
23
24
25=head1 NAME
26
27DBI::Const::GetInfoType - Data describing GetInfo type codes
28
29=head1 SYNOPSIS
30
31 use DBI::Const::GetInfoType;
32
33=head1 DESCRIPTION
34
35Imports a %GetInfoType hash which maps names for GetInfo Type Codes
36into their corresponding numeric values. For example:
37
38 $database_version = $dbh->get_info( $GetInfoType{SQL_DBMS_VER} );
39
40The interface to this module is new and nothing beyond what is
41written here is guaranteed.
42
43=cut
44
4531.22msuse DBI::Const::GetInfo::ANSI (); # liable to change
4635.86msuse DBI::Const::GetInfo::ODBC (); # liable to change
47
481509µs%GetInfoType =
49(
50 %DBI::Const::GetInfo::ANSI::InfoTypes # liable to change
51, %DBI::Const::GetInfo::ODBC::InfoTypes # liable to change
52);
53
54123µs1;
# spent 13µs within DBI::Const::GetInfoType::CORE:match which was called # once (13µs+0s) by base::import at line 22 of DBI/Const/GetInfoType.pm
sub DBI::Const::GetInfoType::CORE:match; # xsub