streamline logging

2 files changed, 8 insertions, 10 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
diff --git a/lib/Object/Groupware/Event.pm b/lib/Object/Groupware/Event.pm
index 270028e..7384176 100644
--- a/lib/Object/Groupware/Event.pm
+++ b/lib/Object/Groupware/Event.pm
@@ -10,6 +10,7 @@ use utf8;
 use Log::Any qw( );
 use Feature::Compat::Try;
 use DateTime::Locale;
+use Encode qw(decode_utf8);
 
 field $log = Log::Any->get_logger;
 
@@ -67,12 +68,8 @@ ADJUST {
 		}
 	}
 
-	if ( $log->is_trace ) {
-		use DDP;
-		p $entry;
-		p $start;
-		p $end;
-	}
+	$log->tracef( "Object %s contents:\n%s", __CLASS__,
+		decode_utf8 $entry->as_string );
 }
 
 method attendees   { !!@attendees   ? [@attendees]   : undef }