From 97b0d01cbed7c4a2ce7ea029881b79bdb0d02ef5 Mon Sep 17 00:00:00 2001 From: Jonas Smedegaard Date: Mon, 2 Sep 2024 21:03:48 +0200 Subject: avoid Object::Pad features once experimental... --- lib/Object/Groupware/Calendar.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'lib/Object/Groupware/Calendar.pm') 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 ) } -- cgit v1.2.3