diff options
author | Jonas Smedegaard <dr@jones.dk> | 2024-09-01 10:49:20 +0200 |
---|---|---|
committer | Jonas Smedegaard <dr@jones.dk> | 2024-09-01 16:31:49 +0200 |
commit | 34c35912a4b457c4240c31b956f93c4d87726427 (patch) | |
tree | bc34ec43c1ea0e0f064dc516bc1245bb0f198df1 /lib/Object/Groupware/Calendar.pm | |
parent | fac3b4444183ec38924cdf5c2878965b33be3992 (diff) |
streamline logging
Diffstat (limited to 'lib/Object/Groupware/Calendar.pm')
-rw-r--r-- | lib/Object/Groupware/Calendar.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/Object/Groupware/Calendar.pm b/lib/Object/Groupware/Calendar.pm index 3d46032..d51e833 100644 --- a/lib/Object/Groupware/Calendar.pm +++ b/lib/Object/Groupware/Calendar.pm @@ -9,6 +9,7 @@ use utf8; use Log::Any qw( ); use Data::ICal::DateTime; +use Encode qw(decode_utf8); use Object::Groupware::Event; @@ -25,10 +26,10 @@ ADJUST { } elsif ($filename) { $data = Data::ICal->new( filename => $filename ) } - if ( $log->is_trace ) { - use DDP; - p $data; - } + $log->tracef( + "Object %s contents:\n%s", __CLASS__, + decode_utf8 $data->as_string + ); } # mimick Data::ICal::DateTime::events() signature |