| Filename | /home/ss5/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/Log/Any/Adapter.pm |
| Statements | Executed 10 statements in 122µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 8µs | 8µs | Search::Elasticsearch::Logger::LogAny::BEGIN@1 |
| 1 | 1 | 1 | 6µs | 7µs | Search::Elasticsearch::Logger::LogAny::BEGIN@2 |
| 1 | 1 | 1 | 6µs | 15µs | Log::Any::Adapter::BEGIN@10 |
| 1 | 1 | 1 | 4µs | 7µs | Search::Elasticsearch::Logger::LogAny::BEGIN@3.35 |
| 0 | 0 | 0 | 0s | 0s | Log::Any::Adapter::import |
| 0 | 0 | 0 | 0s | 0s | Log::Any::Adapter::remove |
| 0 | 0 | 0 | 0s | 0s | Log::Any::Adapter::set |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | 2 | 22µs | 1 | 8µs | # spent 8µs within Search::Elasticsearch::Logger::LogAny::BEGIN@1 which was called:
# once (8µs+0s) by Search::Elasticsearch::Logger::LogAny::BEGIN@9 at line 1 # spent 8µs making 1 call to Search::Elasticsearch::Logger::LogAny::BEGIN@1 |
| 2 | 2 | 12µs | 2 | 8µs | # spent 7µs (6+1) within Search::Elasticsearch::Logger::LogAny::BEGIN@2 which was called:
# once (6µs+1µs) by Search::Elasticsearch::Logger::LogAny::BEGIN@9 at line 2 # spent 7µs making 1 call to Search::Elasticsearch::Logger::LogAny::BEGIN@2
# spent 1µs making 1 call to strict::import |
| 3 | 2 | 25µs | 2 | 10µs | # spent 7µs (4+3) within Search::Elasticsearch::Logger::LogAny::BEGIN@3.35 which was called:
# once (4µs+3µs) by Search::Elasticsearch::Logger::LogAny::BEGIN@9 at line 3 # spent 7µs making 1 call to Search::Elasticsearch::Logger::LogAny::BEGIN@3.35
# spent 3µ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 | 200ns | our $VERSION = '1.032'; | ||
| 9 | |||||
| 10 | 2 | 61µs | 2 | 24µs | # spent 15µs (6+9) within Log::Any::Adapter::BEGIN@10 which was called:
# once (6µs+9µs) by Search::Elasticsearch::Logger::LogAny::BEGIN@9 at line 10 # spent 15µs making 1 call to Log::Any::Adapter::BEGIN@10
# spent 9µ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 | 2µs | 1; | ||
| 28 | |||||
| 29 | __END__ |