fix $c->view() bug hopefully

[catagits/Catalyst-Runtime.git] / t / lib / TestAppOneView / Controller / Root.pm

diff --git a/t/lib/TestAppOneView/Controller/Root.pm b/t/lib/TestAppOneView/Controller/Root.pm
index 1da451c..61a9bf5 100644 (file)
--- a/t/lib/TestAppOneView/Controller/Root.pm
+++ b/t/lib/TestAppOneView/Controller/Root.pm
@@ -21,4 +21,14 @@ sub view_by_name : Local {
     $c->res->body(Scalar::Util::blessed($v));
 }
 
+sub view_by_regex : Local {
+    my ( $self, $c ) = @_;
+
+    my $v_name = $c->req->param('view');
+
+    my ($v) = $c->view(qr/$v_name/);
+
+    $c->res->body(Scalar::Util::blessed($v));
+}
+
 1;