my $self = shift;
my %params = (scalar(@_) == 1) && (ref($_[0]) eq 'HASH') ? %{ $_[0] } : @_;
return $::locale->format_date_object($self, %params);
}
my $self = shift;
my %params = (scalar(@_) == 1) && (ref($_[0]) eq 'HASH') ? %{ $_[0] } : @_;
return $::locale->format_date_object($self, %params);
}