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