diff options
| -rw-r--r-- | lib/App/BorgRestore/PathTimeTable/DB.pm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/lib/App/BorgRestore/PathTimeTable/DB.pm b/lib/App/BorgRestore/PathTimeTable/DB.pm index c01bbd0..221063c 100644 --- a/lib/App/BorgRestore/PathTimeTable/DB.pm +++ b/lib/App/BorgRestore/PathTimeTable/DB.pm @@ -2,7 +2,15 @@ package App::BorgRestore::PathTimeTable::DB; use strictures 2; use Function::Parameters; -use Log::Any qw($log); +BEGIN { + use Log::Any qw($log); + # Trace logging statements are disabled here since they incur a performance + # overhead because they are in tight loops. This block only works for the + # test suite code (set env var TAP_LOG_FILTER=none) since the normal + # application only changes the log level at run time. Hardcode to 1 when + # necessary (or write a test!). + use constant TRACE => $log->is_trace; +} =head1 NAME @@ -22,9 +30,6 @@ properly sorted, this results in only a single database write for each path. =cut -# Trace logging statements are disabled here since they incur a performance -# overhead because they are in tight loops. Change to 1 when necessary. -use constant TRACE => 0; method new($class: $deps = {}) { return $class->new_no_defaults($deps); |