use strict;
+use SL::Util qw(_hashify);
+
sub now_local {
return shift->now(time_zone => $::locale->get_local_time_zone);
}
}
sub to_kivitendo {
- my $self = shift;
- my %params = (scalar(@_) == 1) && (ref($_[0]) eq 'HASH') ? %{ $_[0] } : @_;
+ my ($self, %params) = _hashify(1, @_);
return $::locale->format_date_object($self, %params);
}
sub from_lxoffice {
# Legacy name.
- gofrom &from_kivitendo;
+ goto &from_kivitendo;
}
1;