avoid Object::Pad features once experimental...HEADmaster

1 files changed, 5 insertions, 2 deletions

diff --git a/lib/Object/Groupware/Calendar.pm b/lib/Object/Groupware/Calendar.pm
index 28ae500..8d62e44 100644
--- a/lib/Object/Groupware/Calendar.pm
+++ b/lib/Object/Groupware/Calendar.pm
@@ -1,7 +1,7 @@
 use v5.36;
 
 #use Feature::Compat::Class 0.07;
-use Object::Pad 0.78 qw(:experimental(init_expr));
+use Object::Pad 0.78;
 
 package Object::Groupware::Calendar 0.01;
 
@@ -15,13 +15,16 @@ use Encode qw(decode_utf8);
 
 use Object::Groupware::Event;
 
-field $log = Log::Any->get_logger;
+field $log = undef;
 
 # borrow from Data::ICal::new() signature
 field $data : param     = undef;
 field $filename : param = undef;
 
 ADJUST {
+	# TODO: use Object::Pad 0.07 and move this to field initializer
+	$log //= Log::Any->get_logger;
+
 	if ($data) {
 		if ( $data isa Data::ICal ) { }
 		else { $data = Data::ICal->new( data => $data ) }