| Filename | /home/vagrant/kohaclone/plack.pl |
| Statements | Executed 21 statements in 5.52ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 2.20ms | 25.7ms | CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@5 |
| 1 | 1 | 1 | 24µs | 24µs | CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:open (opcode) |
| 1 | 1 | 1 | 23µs | 134µs | CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@3 |
| 1 | 1 | 1 | 18µs | 18µs | CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@6 |
| 1 | 1 | 1 | 13µs | 49µs | CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@4 |
| 2 | 2 | 1 | 5µs | 5µs | CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:print (opcode) |
| 1 | 1 | 1 | 3µs | 3µs | CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:pack (opcode) |
| 1 | 1 | 1 | 2µs | 2µ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__[:41] |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | #!/usr/bin/perl | ||||
| 2 | 1 | 1µs | |||
| 3 | 2 | 152µs | 2 | 244µs | # spent 134µs (23+110) within CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@3 which was called:
# once (23µs+110µs) by CGI::Compile::_eval at line 3 # spent 134µs making 1 call to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@3
# spent 110µs making 1 call to Modern::Perl::import |
| 4 | 2 | 70µs | 2 | 86µs | # spent 49µs (13+37) within CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@4 which was called:
# once (13µs+37µs) by CGI::Compile::_eval at line 4 # spent 49µs making 1 call to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@4
# spent 36µs making 1 call to CGI::import |
| 5 | 2 | 1.13ms | 2 | 25.9ms | # spent 25.7ms (2.20+23.5) within CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@5 which was called:
# once (2.20ms+23.5ms) by CGI::Compile::_eval at line 5 # spent 25.7ms making 1 call to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@5
# spent 149µs making 1 call to Exporter::import |
| 6 | 2 | 235µs | 1 | 18µs | # spent 18µs within CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@6 which was called:
# once (18µs+0s) by CGI::Compile::_eval at line 6 # spent 18µs making 1 call to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@6 |
| 7 | 1 | 2µs | for my $l (qw(CPL MPL IPT )) { | ||
| 8 | 3 | 1.09ms | 6 | 1.53s | Koha::Libraries->find($l)->branchname; # spent 1.53s making 3 calls to Koha::Objects::find, avg 509ms/call
# spent 183µs making 3 calls to Koha::Object::AUTOLOAD, avg 61µs/call |
| 9 | } | ||||
| 10 | |||||
| 11 | 1 | 2.07ms | 1 | 2.43ms | my $query = CGI->new; # spent 2.43ms making 1 call to Plack::Sandbox::_2fetc_2fkoha_2fsites_2fkohadev_2fplack_2epsgi::__ANON__ |
| 12 | 1 | 574µs | 2 | 562µs | print $query->header({ # spent 557µs making 1 call to CGI::AUTOLOAD
# spent 5µs making 1 call to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:print |
| 13 | type => 'text/html', | ||||
| 14 | status => '200 OK', | ||||
| 15 | charset => 'UTF-8', | ||||
| 16 | Pragma => 'no-cache', | ||||
| 17 | }); | ||||
| 18 | 1 | 9µs | 1 | 600ns | print "<html><body>Hello</body></html>"; # spent 600ns making 1 call to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:print |
| 19 | |||||
| 20 | #my $cookie = undef; | ||||
| 21 | #output_html_with_http_headers $query, $cookie, "<html><body>Hello</body></html>"; | ||||
| 22 | |||||
| 23 | }; | ||||
| 24 | 1 | 800ns | my $self = shift; | ||
| 25 | 1 | 16µs | 2 | 5µs | my $exit_val = unpack('C', pack('C', sprintf('%.0f', $rv))); # spent 3µs making 1 call to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:pack
# spent 2µs making 1 call to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:unpack |
| 26 | 1 | 200ns | if ($@) { | ||
| 27 | die $@ unless ( | ||||
| 28 | ref($@) eq 'ARRAY' and | ||||
| 29 | $@->[0] eq "EXIT\n" | ||||
| 30 | ); | ||||
| 31 | my $exit_param = unpack('C', pack('C', sprintf('%.0f', $@->[1]))); | ||||
| 32 | |||||
| 33 | if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) { | ||||
| 34 | die "exited nonzero: $exit_param"; | ||||
| 35 | } | ||||
| 36 | |||||
| 37 | $exit_val = $exit_param; | ||||
| 38 | } | ||||
| 39 | |||||
| 40 | 1 | 163µs | return $exit_val; | ||
| 41 | 1 | 6µs | }; | ||
# spent 24µs within CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:open which was called:
# once (24µs+0s) by CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::__ANON__[/home/vagrant/kohaclone/plack.pl:41] at line 2 of (eval 163)[CGI/Compile.pm:12] | |||||
# spent 3µs within CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:pack which was called:
# once (3µs+0s) by CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::__ANON__[/home/vagrant/kohaclone/plack.pl:41] at line 25 | |||||
# spent 5µs within CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:print which was called 2 times, avg 3µs/call:
# once (5µs+0s) by CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::__ANON__[/home/vagrant/kohaclone/plack.pl:41] at line 12
# once (600ns+0s) by CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::__ANON__[/home/vagrant/kohaclone/plack.pl:41] at line 18 | |||||
# spent 2µs within CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:unpack which was called:
# once (2µs+0s) by CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::__ANON__[/home/vagrant/kohaclone/plack.pl:41] at line 25 |