Changeset 10394 for lang/perl/HTTPx-Dispatcher/trunk

Timestamp:

04/25/08 10:18:14 (5 years ago)

Author:

tokuhirom

Message:

added function condition

Location:

lang/perl/HTTPx-Dispatcher/trunk

Files:

• lib/HTTPx/Dispatcher/Rule.pm (modified) (2 diffs)
• t/01_simple.t (modified) (1 diff)

lang/perl/HTTPx-Dispatcher/trunk/lib/HTTPx/Dispatcher/Rule.pm

@@ -74 +74 @@
     my ($self, $req) = @_;
 
-    $self->condition_check_method($req);
+    $self->condition_check_method($req) && $self->condition_check_function($req);
 }
 
 sub condition_check_method {
     my ($self, $req) = @_;
+    croak "request required" unless blessed $req;
 
     my $method = $self->conditions->{method};
@@ -92 +93 @@
 }
 
+sub condition_check_function {
+    my ($self, $req) = @_;
+    croak "request required" unless blessed $req;
+
+    my $function = $self->conditions->{function};
+    return 1 unless $function;
+
+    local $_ = $req;
+    if ( $function->( $req ) ) {
+        return 1;
+    } else {
+        return 0;
+    }
+}
+
 1;
 

lang/perl/HTTPx-Dispatcher/trunk/t/01_simple.t

@@ -153 +153 @@
 controller: user
 
+=== function condition(1)
+--- input
+src: |+
+    connect 'edit' => {
+        conditions => {
+            function => sub { $_->method =~ /get/i },
+        },
+        controller => 'user',
+        action => 'get_root',
+    };
+    connect 'edit' => {
+        conditions => {
+            function => sub { $_->method =~ /post/i },
+        },
+        controller => 'user',
+        action => 'post_root',
+    };
+uri: /edit
+method: POST
+--- expected
+action: post_root
+controller: user
+
+=== function condition(2)
+--- input
+src: |+
+    connect 'edit' => {
+        conditions => {
+            function => sub { $_->method =~ /get/i },
+        },
+        controller => 'user',
+        action => 'get_root',
+    };
+    connect 'edit' => {
+        conditions => {
+            function => sub { $_->method =~ /post/i },
+        },
+        controller => 'user',
+        action => 'post_root',
+    };
+uri: /edit
+method: GET
+--- expected
+action: get_root
+controller: user
+