Changeset 9297 for lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute/Plugin/ID.pm

Timestamp:

04/11/08 14:35:48 (5 years ago)

Author:

tokuhirom

Message:

added is_supported_user_id method.

Files:

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

lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute/Plugin/ID.pm

@@ -3 +3 @@
 use warnings;
 use base qw/HTTP::MobileAttribute::Plugin/;
+
+__PACKAGE__->depends([qw/IS IS::ThirdForce/]);
 
 sub thirdforce :CarrierMethod('ThirdForce', 'id') {
@@ -36 +38 @@
     my ($self, $c) = @_;
     $c->request->get('x-dcmguid');
+}
+
+sub is_supported_id :Method {
+    my ($self, $c) = @_;
+
+    return ( $c->is_ezweb || ($c->is_thirdforce && !$c->is_type_c) || $c->is_docomo )  ? 1 : 0;
 }