X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestAppOneView%2FController%2FRoot.pm;h=61a9bf5ba1a2b9d7700ebc1611630a61ff67ef0a;hb=a08216220afae9a832742a5154b96997fef11b26;hp=1da451c90bc2ca4cf9420ad4dc728d223dfe0031;hpb=aa2e6d9e59b1373b13fe7c37725f3fab3b8a1e92;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestAppOneView/Controller/Root.pm b/t/lib/TestAppOneView/Controller/Root.pm index 1da451c..61a9bf5 100644 --- 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;