Revision e500d8b2
Von Moritz Bunkus vor etwa 14 Jahren hinzugefügt
| SL/Locale.pm | ||
|---|---|---|
| 417 | 417 |
my $dd = shift; |
| 418 | 418 |
my $yy_len = shift || 4; |
| 419 | 419 |
|
| 420 |
($yy, $mm, $dd) = ($yy->year, $yy->month, $yy->day) if ref $yy eq 'DateTime'; |
|
| 421 |
|
|
| 420 | 422 |
$main::lxdebug->leave_sub() and return "" unless $yy && $mm && $dd; |
| 421 | 423 |
|
| 422 | 424 |
$yy = $yy % 100 if 2 == $yy_len; |
Auch abrufbar als: Unified diff
Locale::format_date kann auch DateTime-Objekte benutzen