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

1 files changed, 5 insertions, 2 deletions

diff --git a/lib/Object/Groupware/DAV.pm b/lib/Object/Groupware/DAV.pm
index 4b12808..8487543 100644
--- a/lib/Object/Groupware/DAV.pm
+++ b/lib/Object/Groupware/DAV.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::DAV 0.01;
 
@@ -21,7 +21,7 @@ use DateTime;
 
 use Object::Groupware::Calendar;
 
-field $log = Log::Any->get_logger;
+field $log = undef;
 
 field $uri : param;
 field $user : param = undef;
@@ -30,6 +30,9 @@ field $pass : param = undef;
 field $session;
 
 ADJUST {
+	# TODO: use Object::Pad 0.07 and move this to field initializer
+	$log //= Log::Any->get_logger;
+
 	$uri = URI->new($uri)
 		or $log->fatal( 'failed to parse URI %s', $uri ) && exit 2;