Revision 1e846de1
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/Locale.pm | ||
|---|---|---|
| 539 | 539 |
return $self->{local_time_zone};
|
| 540 | 540 |
} |
| 541 | 541 |
|
| 542 |
sub language_join {
|
|
| 543 |
my ($self, $items, %params) = @_; |
|
| 544 |
|
|
| 545 |
$items ||= []; |
|
| 546 |
$params{conjunction} ||= $::locale->text('and');
|
|
| 547 |
my $num = scalar @{ $items };
|
|
| 548 |
|
|
| 549 |
return 0 == $num ? '' |
|
| 550 |
: 1 == $num ? $items->[0] |
|
| 551 |
: join(', ', @{ $items }[0..$num - 2]) . ' ' . $params{conjunction} . ' ' . $items->[$num - 1];
|
|
| 552 |
} |
|
| 553 |
|
|
| 542 | 554 |
1; |
| 555 |
|
|
| 543 | 556 |
__END__ |
| 544 | 557 |
|
| 545 | 558 |
=pod |
Auch abrufbar als: Unified diff
SL::Locale::language_join: Arrays menschenlesbar ausgeben
z.B. für @ary = qw(links rechts oben): "links, rechts und oben"