Filename | /usr/local/share/perl/5.18.2/Plack/Handler/HTTP/Server/PSGI.pm |
Statements | Executed 11 statements in 146µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 18µs | 24.2ms | BEGIN@5 | Plack::Handler::HTTP::Server::PSGI::
1 | 1 | 1 | 11µs | 18µs | _server | Plack::Handler::HTTP::Server::PSGI::
1 | 1 | 1 | 9µs | 18µs | BEGIN@2 | Plack::Handler::HTTP::Server::PSGI::
1 | 1 | 1 | 6µs | 6µs | new | Plack::Handler::HTTP::Server::PSGI::
0 | 0 | 0 | 0s | 0s | run | Plack::Handler::HTTP::Server::PSGI::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Plack::Handler::HTTP::Server::PSGI; | ||||
2 | 2 | 25µs | 2 | 26µs | # spent 18µs (9+9) within Plack::Handler::HTTP::Server::PSGI::BEGIN@2 which was called:
# once (9µs+9µs) by parent::import at line 2 # spent 18µs making 1 call to Plack::Handler::HTTP::Server::PSGI::BEGIN@2
# spent 9µs making 1 call to strict::import |
3 | |||||
4 | # for temporary backward compat | ||||
5 | 2 | 98µs | 2 | 24.2ms | # spent 24.2ms (18µs+24.2) within Plack::Handler::HTTP::Server::PSGI::BEGIN@5 which was called:
# once (18µs+24.2ms) by parent::import at line 5 # spent 24.2ms making 1 call to Plack::Handler::HTTP::Server::PSGI::BEGIN@5
# spent 24.2ms making 1 call to parent::import, recursion: max depth 1, sum of overlapping time 24.2ms |
6 | |||||
7 | # spent 6µs within Plack::Handler::HTTP::Server::PSGI::new which was called:
# once (6µs+0s) by Plack::Loader::load at line 46 of Plack/Loader.pm | ||||
8 | 1 | 2µs | my($class, %args) = @_; | ||
9 | 1 | 6µs | bless { %args }, $class; | ||
10 | } | ||||
11 | |||||
12 | sub run { | ||||
13 | 1 | 200ns | my($self, $app) = @_; | ||
14 | 1 | 3µs | 1 | 18µs | $self->_server->run($app); # spent 18µs making 1 call to Plack::Handler::HTTP::Server::PSGI::_server |
15 | } | ||||
16 | |||||
17 | # spent 18µs (11+7) within Plack::Handler::HTTP::Server::PSGI::_server which was called:
# once (11µs+7µs) by Plack::Handler::HTTP::Server::PSGI::run at line 14 | ||||
18 | 1 | 200ns | my $self = shift; | ||
19 | 1 | 9µs | 1 | 7µs | HTTP::Server::PSGI->new(%$self); # spent 7µs making 1 call to HTTP::Server::PSGI::new |
20 | } | ||||
21 | |||||
22 | 1 | 2µs | 1; | ||
23 | |||||
24 | __END__ |