deprecate no-arg, 1-result model()/view() calls; croak on no-arg, multi-result calls.

[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..44b0222 100644 (file)
--- a/t/lib/TestAppOneView/Controller/Root.pm
+++ b/t/lib/TestAppOneView/Controller/Root.pm
@@ -8,7 +8,13 @@ __PACKAGE__->config->{namespace} = '';
 sub view_no_args : Local {
     my ( $self, $c ) = @_;
 
-    my $v = $c->view;
+    my $v;
+    {
+        # silence warning for test suite
+        no warnings 'redefine';
+        local *Catalyst::Log::warn = sub { };
+        $v = $c->view;
+    }
 
     $c->res->body(Scalar::Util::blessed($v));
 }
@@ -21,4 +27,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;