Changeset 18010

Timestamp:

08/22/08 05:56:04 (5 months ago)

Author:

tokuhirom

Message:

fixed bugs, and added tests.

Location:

lang/perl/Nanto/trunk

Files:

• lib/Nanto/Web/Plugin/Authorizer/MobileJPID.pm (modified) (3 diffs)
• t/030_web_plugin/Authorizer-MobileJPID.t (added)

lang/perl/Nanto/trunk/lib/Nanto/Web/Plugin/Authorizer/MobileJPID.pm

@@ -12 +12 @@
 );
 
+has 'unauthorized_message' => (
+    is       => 'ro',
+    isa      => 'Str',
+    required => 1,
+);
+
 hook 'authorize' => sub {
     my ($self, $req) = @_;
@@ -20 +26 @@
         HTTP::Engine::Response->new(
             status => 403,
-            body   => "you aren't have a permission",
+            body   => $self->unauthorized_message,
         );
     }
@@ -26 +32 @@
 
 sub _auth {
-    my $req = shift;
+    my ($self, $req) = @_;
 
     if ($req->mobile_attribute->can('user_id')) {