Changeset 24601

Timestamp:

11/22/08 12:51:49 (7 weeks ago)

Author:

daisuke

Message:

fix default date/time format

Location:

lang/perl/DateTime-Lite/trunk

Files:

• lib/DateTime/Lite/Locale.pm (modified) (5 diffs)
• t/13strftime.t (modified) (1 diff)

lang/perl/DateTime-Lite/trunk/lib/DateTime/Lite/Locale.pm

@@ -54 +54 @@
     # key, it allows them to be settable.
     return bless { @_,
-        default_date_format_length => $class->_default_date_format_length(),
-        default_time_format_length => $class->_default_time_format_length(),
+        default_date_format_length => 'medium',
+        default_time_format_length => 'medium',
     }, $class;
 }
@@ -69 +69 @@
     my $default = $_[0]->default_date_format_length();
     if (! $default) {
-        die sprintf("DateTime::Lite::Locale %s did not return a proper value from default_date_format_length()", $_[0]->{name});
+        die sprintf("DateTime::Lite::Locale %s did not return a proper value from default_date_format_length()", $_[0]->{id});
     }
     my $meth = "date_format_$default";
@@ -127 +127 @@
 sub _available_formats { }
 
-sub default_date_format_length { $_[0]->{_default_date_format_length} }
+sub default_date_format_length { $_[0]->{default_date_format_length} }
 
 sub set_default_date_format_length
@@ -137 +137 @@
 }
 
-sub default_time_format_length { $_[0]->{_default_time_format_length} }
+sub default_time_format_length { $_[0]->{default_time_format_length} }
 
 sub set_default_time_format_length
@@ -385 +385 @@
 time_format_medium
 time_format_short
-_default_date_format_length
-_default_time_format_length
 _format_for_Hm
 _format_for_M

lang/perl/DateTime-Lite/trunk/t/13strftime.t

@@ -31 +31 @@
     {
         $locale = $1;
-        eval "use DateTime::Lite::Locale::$1";
-        die $@ if $@;
 
         Test::More::diag("New locale: $locale\n");