Something I need for strptime. Any objections?
Out of interest, I note there are some commented out bits.
Is there any intention of having them work as would be intended?
Index: lib/DateTime/Language.pm
===================================================================
RCS file: /cvsroot/perl-date-time/modules/DateTime.pm/lib/DateTime/Language.pm,v
retrieving revision 1.11
diff -u -r1.11 Language.pm
--- lib/DateTime/Language.pm 20 Mar 2003 06:13:02 -0000 1.11
+++ lib/DateTime/Language.pm 30 Mar 2003 06:55:00 -0000
@@ -126,6 +126,8 @@
sub day_abbreviation { $_[0]->{day_abbreviations}[ $_[1]->day_of_week_0 ] }
+sub am_pms { $_[0]->{am_pm} }
+
sub am_pm { $_[0]->{am_pm}[ $_[1]->hour < 12 ? 0 : 1 ] }
#sub preferred_datetime_format { '%m/%d/%y %H:%M:%S' }
#sub preferred_date_format { '%m/%d/%y' }
#sub preferred_time_format { '%H:%M:%S' }
