Filename | /opt/flows/lib/lib/perl5/Log/Any/Adapter.pm |
Statements | Executed 10 statements in 277µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 19µs | 19µs | BEGIN@1.10 | Search::Elasticsearch::Logger::LogAny::
1 | 1 | 1 | 18µs | 35µs | BEGIN@2.11 | Search::Elasticsearch::Logger::LogAny::
1 | 1 | 1 | 10µs | 15µs | BEGIN@3.12 | Search::Elasticsearch::Logger::LogAny::
1 | 1 | 1 | 7µs | 20µs | BEGIN@10 | Log::Any::Adapter::
0 | 0 | 0 | 0s | 0s | import | Log::Any::Adapter::
0 | 0 | 0 | 0s | 0s | remove | Log::Any::Adapter::
0 | 0 | 0 | 0s | 0s | set | Log::Any::Adapter::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | 2 | 50µs | 1 | 19µs | # spent 19µs within Search::Elasticsearch::Logger::LogAny::BEGIN@1.10 which was called:
# once (19µs+0s) by Search::Elasticsearch::Logger::LogAny::BEGIN@9 at line 1 # spent 19µs making 1 call to Search::Elasticsearch::Logger::LogAny::BEGIN@1.10 |
2 | 2 | 40µs | 2 | 52µs | # spent 35µs (18+17) within Search::Elasticsearch::Logger::LogAny::BEGIN@2.11 which was called:
# once (18µs+17µs) by Search::Elasticsearch::Logger::LogAny::BEGIN@9 at line 2 # spent 35µs making 1 call to Search::Elasticsearch::Logger::LogAny::BEGIN@2.11
# spent 17µs making 1 call to strict::import |
3 | 2 | 54µs | 2 | 20µs | # spent 15µs (10+5) within Search::Elasticsearch::Logger::LogAny::BEGIN@3.12 which was called:
# once (10µs+5µs) by Search::Elasticsearch::Logger::LogAny::BEGIN@9 at line 3 # spent 15µs making 1 call to Search::Elasticsearch::Logger::LogAny::BEGIN@3.12
# spent 5µs making 1 call to warnings::import |
4 | |||||
5 | package Log::Any::Adapter; | ||||
6 | |||||
7 | # ABSTRACT: Tell Log::Any where to send its logs | ||||
8 | 1 | 700ns | our $VERSION = '1.040'; | ||
9 | |||||
10 | 2 | 129µs | 2 | 32µs | # spent 20µs (7+13) within Log::Any::Adapter::BEGIN@10 which was called:
# once (7µs+13µs) by Search::Elasticsearch::Logger::LogAny::BEGIN@9 at line 10 # spent 20µs making 1 call to Log::Any::Adapter::BEGIN@10
# spent 13µs making 1 call to Log::Any::import |
11 | |||||
12 | sub import { | ||||
13 | my $pkg = shift; | ||||
14 | Log::Any->_manager->set(@_) if (@_); | ||||
15 | } | ||||
16 | |||||
17 | sub set { | ||||
18 | my $pkg = shift; | ||||
19 | Log::Any->_manager->set(@_) | ||||
20 | } | ||||
21 | |||||
22 | sub remove { | ||||
23 | my $pkg = shift; | ||||
24 | Log::Any->_manager->remove(@_) | ||||
25 | } | ||||
26 | |||||
27 | 1 | 3µs | 1; | ||
28 | |||||
29 | __END__ |