Filename | /usr/local/share/perl/5.18.2/Plack/HTTPParser.pm |
Statements | Executed 12 statements in 200µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 8µs | 17µs | BEGIN@2 | Plack::HTTPParser::
1 | 1 | 1 | 8µs | 40µs | BEGIN@7 | Plack::HTTPParser::
1 | 1 | 1 | 6µs | 23µs | BEGIN@3 | Plack::HTTPParser::
0 | 0 | 0 | 0s | 0s | __ANON__[:10] | Plack::HTTPParser::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Plack::HTTPParser; | ||||
2 | 2 | 26µs | 2 | 26µs | # spent 17µs (8+9) within Plack::HTTPParser::BEGIN@2 which was called:
# once (8µs+9µs) by HTTP::Server::PSGI::BEGIN@7 at line 2 # spent 17µs making 1 call to Plack::HTTPParser::BEGIN@2
# spent 9µs making 1 call to strict::import |
3 | 2 | 29µs | 2 | 23µs | # spent 23µs (6+17) within Plack::HTTPParser::BEGIN@3 which was called:
# once (6µs+17µs) by HTTP::Server::PSGI::BEGIN@7 at line 3 # spent 23µs making 1 call to Plack::HTTPParser::BEGIN@3
# spent 17µs making 1 call to parent::import, recursion: max depth 2, sum of overlapping time 17µs |
4 | |||||
5 | 1 | 800ns | our @EXPORT = qw( parse_http_request ); | ||
6 | |||||
7 | 2 | 74µs | 2 | 72µs | # spent 40µs (8+32) within Plack::HTTPParser::BEGIN@7 which was called:
# once (8µs+32µs) by HTTP::Server::PSGI::BEGIN@7 at line 7 # spent 40µs making 1 call to Plack::HTTPParser::BEGIN@7
# spent 32µs making 1 call to Exporter::import |
8 | |||||
9 | { | ||||
10 | 4 | 67µs | 1 | 0s | if (!$ENV{PLACK_HTTP_PARSER_PP} && try { require HTTP::Parser::XS; 1 }) { # spent 634µs making 1 call to Try::Tiny::try, recursion: max depth 2, sum of overlapping time 634µs |
11 | *parse_http_request = \&HTTP::Parser::XS::parse_http_request; | ||||
12 | } else { | ||||
13 | require Plack::HTTPParser::PP; | ||||
14 | *parse_http_request = \&Plack::HTTPParser::PP::parse_http_request; | ||||
15 | } | ||||
16 | } | ||||
17 | |||||
18 | 1 | 4µs | 1; | ||
19 | |||||
20 | __END__ |