← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 11:58:52 2013
Reported on Tue Oct 15 12:01:06 2013

Filename/usr/lib/perl/5.10/GDBM_File.pm
StatementsExecuted 28 statements in 756µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11181µs81µsGDBM_File::::TIEHASHGDBM_File::TIEHASH (xsub)
11129µs47µsGDBM_File::::AUTOLOADGDBM_File::AUTOLOAD
11123µs30µsGDBM_File::::BEGIN@44GDBM_File::BEGIN@44
11114µs14µsGDBM_File::::constantGDBM_File::constant (xsub)
11111µs31µsGDBM_File::::BEGIN@79GDBM_File::BEGIN@79
11110µs28µsGDBM_File::::BEGIN@45GDBM_File::BEGIN@45
1115µs5µsGDBM_File::::BEGIN@51GDBM_File::BEGIN@51
1115µs5µsGDBM_File::::CORE:substGDBM_File::CORE:subst (opcode)
1112µs2µsGDBM_File::::__ANON__[:80]GDBM_File::__ANON__[:80]
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1# GDBM_File.pm -- Perl 5 interface to GNU gdbm library.
2
3=head1 NAME
4
- -
42package GDBM_File;
43
44329µs236µs
# spent 30µs (23+6) within GDBM_File::BEGIN@44 which was called: # once (23µs+6µs) by MARC::Charset::Table::BEGIN@37 at line 44
use strict;
# spent 30µs making 1 call to GDBM_File::BEGIN@44 # spent 6µs making 1 call to strict::import
45363µs246µs
# spent 28µs (10+18) within GDBM_File::BEGIN@45 which was called: # once (10µs+18µs) by MARC::Charset::Table::BEGIN@37 at line 45
use warnings;
# spent 28µs making 1 call to GDBM_File::BEGIN@45 # spent 18µs making 1 call to warnings::import
461800nsour($VERSION, @ISA, @EXPORT, $AUTOLOAD);
47
4811µsrequire Carp;
4911µsrequire Tie::Hash;
501600nsrequire Exporter;
513150µs15µs
# spent 5µs within GDBM_File::BEGIN@51 which was called: # once (5µs+0s) by MARC::Charset::Table::BEGIN@37 at line 51
use XSLoader ();
# spent 5µs making 1 call to GDBM_File::BEGIN@51
52117µs@ISA = qw(Tie::Hash Exporter);
5313µs@EXPORT = qw(
54 GDBM_CACHESIZE
55 GDBM_CENTFREE
56 GDBM_COALESCEBLKS
57 GDBM_FAST
58 GDBM_FASTMODE
59 GDBM_INSERT
60 GDBM_NEWDB
61 GDBM_NOLOCK
62 GDBM_OPENMASK
63 GDBM_READER
64 GDBM_REPLACE
65 GDBM_SYNC
66 GDBM_SYNCMODE
67 GDBM_WRCREAT
68 GDBM_WRITER
69);
70
71# This module isn't dual life, so no need for dev version numbers.
721300ns$VERSION = '1.09';
73
74
# spent 47µs (29+18) within GDBM_File::AUTOLOAD which was called: # once (29µs+18µs) by MARC::Charset::Table::new at line 52 of MARC/Charset/Table.pm
sub AUTOLOAD {
75648µs my($constname);
7615µs ($constname = $AUTOLOAD) =~ s/.*:://;
# spent 5µs making 1 call to GDBM_File::CORE:subst
77114µs my ($error, $val) = constant($constname);
# spent 14µs making 1 call to GDBM_File::constant
78 Carp::croak $error if $error;
79385µs250µs
# spent 31µs (11+19) within GDBM_File::BEGIN@79 which was called: # once (11µs+19µs) by MARC::Charset::Table::BEGIN@37 at line 79
no strict 'refs';
# spent 31µs making 1 call to GDBM_File::BEGIN@79 # spent 19µs making 1 call to strict::unimport
8015µs
# spent 2µs within GDBM_File::__ANON__[/usr/lib/perl/5.10/GDBM_File.pm:80] which was called: # once (2µs+0s) by MARC::Charset::Table::new at line 81
*{$AUTOLOAD} = sub { $val };
8112µs goto &{$AUTOLOAD};
# spent 2µs making 1 call to GDBM_File::__ANON__[GDBM_File.pm:80]
82}
83
841342µs1332µsXSLoader::load 'GDBM_File', $VERSION;
# spent 332µs making 1 call to XSLoader::load
85
86110µs1;
 
# spent 5µs within GDBM_File::CORE:subst which was called: # once (5µs+0s) by GDBM_File::AUTOLOAD at line 76
sub GDBM_File::CORE:subst; # opcode
# spent 81µs within GDBM_File::TIEHASH which was called: # once (81µs+0s) by MARC::Charset::Table::_init at line 187 of MARC/Charset/Table.pm
sub GDBM_File::TIEHASH; # xsub
# spent 14µs within GDBM_File::constant which was called: # once (14µs+0s) by GDBM_File::AUTOLOAD at line 77
sub GDBM_File::constant; # xsub