Changeset 30032 for lang/perl/DateTimeX-Lite/trunk/lib/DateTimeX/Lite/Locale.pm

Timestamp:

02/14/09 11:51:46 (4 years ago)

Author:

daisuke

Message:

mo locale fixes (still need to tweak)

Files:

• lang/perl/DateTimeX-Lite/trunk/lib/DateTimeX/Lite/Locale.pm (modified) (2 diffs)

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

@@ -82 +82 @@
 
         no strict 'refs';
-        *{$meth_name} = sub { $_[0]->{$field} };
-    }
+        *{$meth_name} = sub { $_[0]->{$field} } }
 }
 
@@ -92 +91 @@
     # By making the default format lengths part of the object's hash
     # key, it allows them to be settable.
-    return bless { @_,
+    my $self = bless { @_,
         default_date_format_length => 'medium',
         default_time_format_length => 'medium',
     }, $class;
+
+    $self->{native_language} = $self->{en_language}
+        unless exists $self->{native_language};
+    
+    my @en_pieces;
+    my @native_pieces;
+    foreach my $p ( qw( language script territory variant ) )
+    {
+        push @en_pieces, $self->{"en_$p"} if exists $self->{"en_$p"};
+        push @native_pieces, $self->{"native_$p"} if exists $self->{"native_$p"};
+    }
+
+    $self->{en_complete_name} = join ' ', @en_pieces;
+    $self->{native_complete_name} = join ' ', @native_pieces;
+
+    return $self;
 }