Changeset 30331

Timestamp:

02/20/09 12:52:05 (4 years ago)

Author:

daisuke

Message:

add detection from http header value, handle incoming localizer specs in the constructor

Files:

• lang/perl/Data-Localize/trunk/lib/Data/Localize.pm (modified) (4 diffs)

lang/perl/Data-Localize/trunk/lib/Data/Localize.pm

@@ -3 +3 @@
 package Data::Localize;
 use Moose;
+use Moose::Util::TypeConstraints;
 use MooseX::AttributeHelpers;
 use I18N::LangTags ();
@@ -56 +57 @@
 # Localizers are the actual minions that perform the localization.
 # They must register themselves
+subtype 'Data::Localize::LocalizerListArg'
+    => as 'ArrayRef'
+    => where {
+        ! grep { ! blessed $_ || ! $_->does('Data::Localize::Localizer') } @$_;
+    }
+    => message {
+        'localizers must be a list of Data::Localize::Localizer implementors'
+    }
+;
+coerce 'Data::Localize::LocalizerListArg'
+    => from 'ArrayRef[HashRef]'
+    => via {
+        my $ret = [ map {
+            my $args  = $_;
+            my $klass = delete $args->{class};
+            if ($klass !~ s/^\+//) {
+                $klass = "Data::Localize::$klass";
+            }
+            Class::MOP::load_class($klass);
+            $klass->new(%$args);
+        } @$_ ];
+        return $ret;
+    }
+;
+
 has 'localizers' => (
     metaclass => 'Collection::Array',
     is => 'rw',
-    isa => 'ArrayRef',
+    isa => 'Data::Localize::LocalizerListArg',
+    coerce => 1,
     default => sub { +[] },
     provides => {
@@ -81 +108 @@
 
 no Moose;
+no Moose::Util::TypeConstraints;
+
+sub BUILD {
+    my $self = shift;
+    if ($self->count_localizers > 0) {
+        foreach my $loc (@{ $self->localizers }) {
+            $loc->register($self);
+        }
+    }
+    return $self;
+}
 
 sub _build_fallback_languages {
@@ -104 +142 @@
     if (&DEBUG) {
         print STDERR "[Data::Localize]: detect_languages auto-detected ", join(", ", map { "'$_'" } @lang ), "\n";
+    }
+    return wantarray ? @lang : \@lang;
+}
+
+sub detect_languages_from_header {
+    my $self = shift;
+    my @lang = I18N::LangTags::implicate_supers( 
+        I18N::LangTags::Detect->http_accept_langs( $_[0] || $ENV{HTTP_ACCEPT_LANGUAGE}),
+        $self->fallback_languages,
+    );
+    if (&DEBUG) {
+        print STDERR "[Data::Localize]: detect_languages_from_header detected ", join(", ", map { "'$_'" } @lang ), "\n";
     }
     return wantarray ? @lang : \@lang;