← 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:02:02 2013

Filename/usr/lib/perl/5.10/Storable.pm
StatementsExecuted 27 statements in 514µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11190µs90µsStorable::::bootstrapStorable::bootstrap (xsub)
11127µs329µsStorable::::BEGIN@22Storable::BEGIN@22
11121µs323µsStorable::::BEGIN@44Storable::BEGIN@44
11120µs766µsStorable::::BEGIN@23Storable::BEGIN@23
11114µs83µsStorable::::BEGIN@24Storable::BEGIN@24
0000s0sStorable::::CLONEStorable::CLONE
0000s0sStorable::::retrieve_fdStorable::retrieve_fd
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1#
2# Copyright (c) 1995-2000, Raphael Manfredi
3#
4# You may redistribute only under the same terms as Perl 5, as specified
5# in the README file that comes with the distribution.
6#
7
812µsrequire DynaLoader;
91700nsrequire Exporter;
10120µspackage Storable; @ISA = qw(Exporter DynaLoader);
11
121900ns@EXPORT = qw(store retrieve);
1313µs@EXPORT_OK = qw(
14 nstore store_fd nstore_fd fd_retrieve
15 freeze nfreeze thaw
16 dclone
17 retrieve_fd
18 lock_store lock_nstore lock_retrieve
19 file_magic read_magic
20);
21
22339µs2631µs
# spent 329µs (27+302) within Storable::BEGIN@22 which was called: # once (27µs+302µs) by LWP::UserAgent::BEGIN@10 at line 22
use AutoLoader;
# spent 329µs making 1 call to Storable::BEGIN@22 # spent 302µs making 1 call to AutoLoader::import
23349µs21.51ms
# spent 766µs (20+746) within Storable::BEGIN@23 which was called: # once (20µs+746µs) by LWP::UserAgent::BEGIN@10 at line 23
use FileHandle;
# spent 766µs making 1 call to Storable::BEGIN@23 # spent 746µs making 1 call to FileHandle::import
243152µs2152µs
# spent 83µs (14+69) within Storable::BEGIN@24 which was called: # once (14µs+69µs) by LWP::UserAgent::BEGIN@10 at line 24
use vars qw($canonical $forgive_me $VERSION);
# spent 83µs making 1 call to Storable::BEGIN@24 # spent 69µs making 1 call to vars::import
25
261500ns$VERSION = '2.20';
2712µs*AUTOLOAD = \&AutoLoader::AUTOLOAD; # Grrr...
28
29#
30# Use of Log::Agent is optional
31#
32
33{
3425µs local $SIG{__DIE__};
35159µs eval "use Log::Agent";
# spent 130µs executing statements in string eval
# includes 116µs spent executing 1 call to 1 sub defined therein.
36}
37
3811µsrequire Carp;
39
40#
41# They might miss :flock in Fcntl
42#
43
44
# spent 323µs (21+302) within Storable::BEGIN@44 which was called: # once (21µs+302µs) by LWP::UserAgent::BEGIN@10 at line 53
BEGIN {
45316µs1302µs if (eval { require Fcntl; 1 } && exists $Fcntl::EXPORT_TAGS{'flock'}) {
# spent 302µs making 1 call to Exporter::import
46 Fcntl->import(':flock');
47 } else {
48 eval q{
49 sub LOCK_SH () {1}
50 sub LOCK_EX () {2}
51 };
52 }
531140µs1323µs}
# spent 323µs making 1 call to Storable::BEGIN@44
54
55sub CLONE {
56 # clone context under threads
57 Storable::init_perinterp();
58}
59
60# Can't Autoload cleanly as this clashes 8.3 with &retrieve
61sub retrieve_fd { &fd_retrieve } # Backward compatibility
62
63# By default restricted hashes are downgraded on earlier perls.
64
651500ns$Storable::downgrade_restricted = 1;
661200ns$Storable::accept_future_minor = 1;
67111µs1397µsbootstrap Storable;
# spent 397µs making 1 call to DynaLoader::bootstrap
68112µs1;
69__END__
 
# spent 90µs within Storable::bootstrap which was called: # once (90µs+0s) by DynaLoader::bootstrap at line 215 of DynaLoader.pm
sub Storable::bootstrap; # xsub