Changeset 3836 for lang/perl/HTTP-MobileAgent-Plugin-Locator/trunk

Timestamp:

12/31/07 03:11:55 (5 years ago)

Author:

tokuhirom

Message:

lang/perl/HTTP-MobileAgent?-Plugin-Locator: little bit configurable.

Files:

• lang/perl/HTTP-MobileAgent-Plugin-Locator/trunk/lib/HTTP/MobileAgent/Plugin/Locator.pm (modified) (2 diffs)

lang/perl/HTTP-MobileAgent-Plugin-Locator/trunk/lib/HTTP/MobileAgent/Plugin/Locator.pm

@@ -9 +9 @@
 
 our $VERSION = '0.01';
+
+our $DOCOMO_GPS_COMPLIANT_MODELS = qr/(?:90[345]|SA[78]0[02]i)/;
 
 sub import {
@@ -24 +26 @@
     my $self = shift;
     if ( $self->is_docomo ) {
-        return $self->model =~ /(?:90[345]|SA[78]0[02]i)/;
+        return $self->model =~ $DOCOMO_GPS_COMPLIANT_MODELS;
     } elsif ( $self->is_ezweb ) {
         my @specs = split //, $ENV{ HTTP_X_UP_DEVCAP_MULTIMEDIA } || '';