add ->route

miyagawa · Oct 23, 2009 · 24d7487 · 24d7487
1 parent 4a00fce
commit 24d7487
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/lib/Tatsumaki/Application.pm b/lib/Tatsumaki/Application.pm
@@ -20,14 +20,20 @@ around BUILDARGS => sub {
         my @rules;
         while (my($path, $handler) = splice @$handlers, 0, 2) {
             $path = qr/^$path/ unless ref $path eq 'RegExp';
-            push @rules, { path => $path, handler => $handler };
+            push @rules, { path => $path, handler => $handler }};
         }
         $class->$orig(_rules => \@rules, @_);
     } else {
         $class->$orig(@_);
     }
 };
 
+sub route {
+    my($self, $path, $handler) = @_;
+    $path = qr/^$path/ unless ref $path eq 'RegExp';
+    push @{$self->{_rules}, { path => $path, handler => $handler }};
+}
+
 sub dispatch {
     my($self, $path) = @_;