diff options
Diffstat (limited to 'lib/Object/Groupware.pm')
| -rw-r--r-- | lib/Object/Groupware.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/Object/Groupware.pm b/lib/Object/Groupware.pm index 4efc627..eac1bf7 100644 --- a/lib/Object/Groupware.pm +++ b/lib/Object/Groupware.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 0.01; @@ -11,13 +11,16 @@ use utf8; use Log::Any qw( ); -field $log = Log::Any->get_logger; +field $log = undef; field $dt_locale : param : reader = undef; field $dt_time_zone : param : reader = undef; field $dt_span_time_prefix : param : reader = ''; ADJUST { + # TODO: use Object::Pad 0.07 and move this to field initializer + $log = Log::Any->get_logger; + if ( defined $self->dt_locale and not $self->dt_locale isa DateTime::Locale::FromData ) { |