aboutsummaryrefslogtreecommitdiff
path: root/lib/Object/Groupware/Calendar.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Object/Groupware/Calendar.pm')
-rw-r--r--lib/Object/Groupware/Calendar.pm7
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 ) }