Profile of plack.pl

Filename	/home/vagrant/kohaclone/plack.pl
Statements	Executed 9 statements in 363µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	2.04ms	23.8ms	CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@5
3	1	1	36µs	36µs	CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:open (opcode)
1	1	1	26µs	152µs	CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@3
6	2	1	21µs	21µs	CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:print (opcode)
1	1	1	20µs	60µs	CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@4
1	1	1	15µs	15µs	CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@6
3	1	1	14µs	14µs	CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:pack (opcode)
3	1	1	7µs	7µs	CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:unpack (opcode)
0	0	0	0s	0s	CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::__ANON__[:39]

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					#!/usr/bin/perl
2	1	1µs
3			2	278µs	# spent 152µs (26+126) within CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@3 which was called: # once (26µs+126µs) by CGI::Compile::_eval at line 3 use Modern::Perl; # spent 152µs making 1 call to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@3 # spent 126µs making 1 call to Modern::Perl::import
4			2	99µs	# spent 60µs (20+40) within CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@4 which was called: # once (20µs+40µs) by CGI::Compile::_eval at line 4 use CGI; # spent 60µs making 1 call to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@4 # spent 40µs making 1 call to CGI::import
5			2	23.9ms	# spent 23.8ms (2.04+21.7) within CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@5 which was called: # once (2.04ms+21.7ms) by CGI::Compile::_eval at line 5 use C4::Output; # spent 23.8ms making 1 call to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@5 # spent 121µs making 1 call to Exporter::import
6			1	15µs	# spent 15µs within CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@6 which was called: # once (15µs+0s) by CGI::Compile::_eval at line 6 use Koha::Libraries; # spent 15µs making 1 call to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@6
7	1	59µs	3	2.29s	my $libraries = Koha::Libraries->search; # spent 2.29s making 3 calls to Koha::Objects::search, avg 762ms/call
8
9	1	122µs	3	2.79ms	my $query = CGI->new; # spent 2.79ms making 3 calls to Plack::Sandbox::_2fetc_2fkoha_2fsites_2fkohadev_2fplack_2epsgi::__ANON__, avg 928µs/call
10	1	28µs	6	1.19ms	print $query->header({ # spent 641µs making 1 call to CGI::AUTOLOAD # spent 531µs making 2 calls to CGI::header, avg 265µs/call # spent 20µs making 3 calls to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:print, avg 7µs/call
11					type => 'text/html',
12					status => '200 OK',
13					charset => 'UTF-8',
14					Pragma => 'no-cache',
15					});
16	1	8µs	3	2µs	print "<html><body>Hello</body></html>"; # spent 2µs making 3 calls to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:print, avg 500ns/call
17
18					#my $cookie = undef;
19					#output_html_with_http_headers $query, $cookie, "<html><body>Hello</body></html>";
20
21					};
22	1	2µs			my $self = shift;
23	1	16µs	6	21µs	my $exit_val = unpack('C', pack('C', sprintf('%.0f', $rv))); # spent 14µs making 3 calls to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:pack, avg 5µs/call # spent 7µs making 3 calls to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:unpack, avg 2µs/call
24	1	200ns			if ($@) {
25					die $@ unless (
26					ref($@) eq 'ARRAY' and
27					$@->[0] eq "EXIT\n"
28					);
29					my $exit_param = unpack('C', pack('C', sprintf('%.0f', $@->[1])));
30
31					if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {
32					die "exited nonzero: $exit_param";
33					}
34
35					$exit_val = $exit_param;
36					}
37
38	1	126µs			return $exit_val;
39					};

					# spent 36µs within CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:open which was called 3 times, avg 12µs/call: # 3 times (36µs+0s) by CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::__ANON__[/home/vagrant/kohaclone/plack.pl:39] at line 2 of (eval 163)[CGI/Compile.pm:12], avg 12µs/call sub CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:open; # opcode
					# spent 14µs within CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:pack which was called 3 times, avg 5µs/call: # 3 times (14µs+0s) by CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::__ANON__[/home/vagrant/kohaclone/plack.pl:39] at line 23, avg 5µs/call sub CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:pack; # opcode
					# spent 21µs within CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:print which was called 6 times, avg 4µs/call: # 3 times (20µs+0s) by CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::__ANON__[/home/vagrant/kohaclone/plack.pl:39] at line 10, avg 7µs/call # 3 times (2µs+0s) by CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::__ANON__[/home/vagrant/kohaclone/plack.pl:39] at line 16, avg 500ns/call sub CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:print; # opcode
					# spent 7µs within CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:unpack which was called 3 times, avg 2µs/call: # 3 times (7µs+0s) by CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::__ANON__[/home/vagrant/kohaclone/plack.pl:39] at line 23, avg 2µs/call sub CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:unpack; # opcode