diff options
Diffstat (limited to 'lib/Object/Groupware/Calendar.pm')
-rw-r--r-- | lib/Object/Groupware/Calendar.pm | 7 |
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 ) } |