The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

{$name} - {$description}

DESCRIPTION

This pod file contains examples of the locale data available for the {$locale->name} locale.

Days

Wide (format)

{ for my $day ( @{ $locale->day_format_wide } ) { $OUT .= " $day\n" } } =head3 Abbreviated (format)

{ for my $day ( @{ $locale->day_format_abbreviated } ) { $OUT .= " $day\n" } } =head3 Narrow (format)

{ for my $day ( @{ $locale->day_format_narrow } ) { $OUT .= " $day\n" } }

Wide (stand-alone)

{ for my $day ( @{ $locale->day_stand_alone_wide } ) { $OUT .= " $day\n" } } =head3 Abbreviated (stand-alone)

{ for my $day ( @{ $locale->day_stand_alone_abbreviated } ) { $OUT .= " $day\n" } } =head3 Narrow (stand-alone)

{ for my $day ( @{ $locale->day_stand_alone_narrow } ) { $OUT .= " $day\n" } } =head2 Months

Wide (format)

{ for my $month ( @{ $locale->month_format_wide } ) { $OUT .= " $month\n" } } =head3 Abbreviated (format)

{ for my $month ( @{ $locale->month_format_abbreviated } ) { $OUT .= " $month\n" } } =head3 Narrow (format)

{ for my $month ( @{ $locale->month_format_narrow } ) { $OUT .= " $month\n" } }

Wide (stand-alone)

{ for my $month ( @{ $locale->month_stand_alone_wide } ) { $OUT .= " $month\n" } } =head3 Abbreviated (stand-alone)

{ for my $month ( @{ $locale->month_stand_alone_abbreviated } ) { $OUT .= " $month\n" } } =head3 Narrow (stand-alone)

{ for my $month ( @{ $locale->month_stand_alone_narrow } ) { $OUT .= " $month\n" } } =head2 Quarters

Wide (format)

{ for my $quarter ( @{ $locale->quarter_format_wide } ) { $OUT .= " $quarter\n" } } =head3 Abbreviated (format)

{ for my $quarter ( @{ $locale->quarter_format_abbreviated } ) { $OUT .= " $quarter\n" } } =head3 Narrow (format)

{ for my $quarter ( @{ $locale->quarter_format_narrow } ) { $OUT .= " $quarter\n" } }

Wide (stand-alone)

{ for my $quarter ( @{ $locale->quarter_stand_alone_wide } ) { $OUT .= " $quarter\n" } } =head3 Abbreviated (stand-alone)

{ for my $quarter ( @{ $locale->quarter_stand_alone_abbreviated } ) { $OUT .= " $quarter\n" } } =head3 Narrow (stand-alone)

{ for my $quarter ( @{ $locale->quarter_stand_alone_narrow } ) { $OUT .= " $quarter\n" } } =head2 Eras

Wide (format)

{ for my $era ( @{ $locale->era_wide } ) { $OUT .= " $era\n" } } =head3 Abbreviated (format)

{ for my $era ( @{ $locale->era_abbreviated } ) { $OUT .= " $era\n" } } =head3 Narrow (format)

{ for my $era ( @{ $locale->era_narrow } ) { $OUT .= " $era\n" } } =head2 Date Formats

{ $_->set_locale($locale) for @example_dts; for my $length (qw( full long medium short )) { my $meth = 'date_format_' . $length; $OUT .= "=head3 \u$length\n\n"; for my $dt (@example_dts) { $OUT .= sprintf( ' %20s = %s', $dt->iso8601, $dt->format_cldr( $locale->$meth ) ); $OUT .= "\n"; } $OUT .= "\n"; } } =head2 Time Formats

{ for my $length (qw( full long medium short )) { my $meth = 'time_format_' . $length; $OUT .= "=head3 \u$length\n\n"; for my $dt (@example_dts) { $OUT .= sprintf( ' %20s = %s', $dt->iso8601, $dt->format_cldr( $locale->$meth ) ); $OUT .= "\n"; } $OUT .= "\n"; } } =head2 Datetime Formats

{ for my $length (qw( full long medium short )) { my $meth = 'datetime_format_' . $length; $OUT .= "=head3 \u$length\n\n"; for my $dt (@example_dts) { $OUT .= sprintf( ' %20s = %s', $dt->iso8601, $dt->format_cldr( $locale->$meth ) ); $OUT .= "\n"; } $OUT .= "\n"; } } =head2 Available Formats

{ for my $key ( sort { $a cmp $b } $locale->available_formats ) { my $fmt = $locale->format_for($key); $OUT .= "=head3 $key ($fmt)\n\n"; for my $dt (@example_dts) { $OUT .= sprintf( ' %20s = %s', $dt->iso8601, $dt->format_cldr($fmt) ); $OUT .= "\n"; } $OUT .= "\n"; } } =head2 Miscellaneous

Prefers 24 hour time?

{ $locale->prefers_24_hour_time ? 'Yes' : 'No' }

Local first day of the week

{ $locale->first_day_of_week } ({ $locale->day_stand_alone_wide->[ $locale->first_day_of_week - 1 ] })

Strftime Patterns

%c ({ $locale->glibc_datetime_format }) - date time format

{ for my $dt (@example_dts) { $OUT .= sprintf( ' %20s = %s', $dt->iso8601, $dt->strftime( $locale->glibc_datetime_format ) ); $OUT .= "\n"; } } =head3 %x ({ $locale->glibc_date_format }) - date format

{ for my $dt (@example_dts) { $OUT .= sprintf( ' %20s = %s', $dt->iso8601, $dt->strftime( $locale->glibc_date_format ) ); $OUT .= "\n"; } } =head3 %X ({ $locale->glibc_time_format }) - time format

{ for my $dt (@example_dts) { $OUT .= sprintf( ' %20s = %s', $dt->iso8601, $dt->strftime( $locale->glibc_time_format ) ); $OUT .= "\n"; } } =head1 SUPPORT

See DateTime::Locale.