t/lib/Catalyst/Plugin/Test/Deprecated.pm

   1 package Catalyst::Plugin::Test::Deprecated;
   2
   3 use strict;
   4 use warnings;
   5 use NEXT;
   6
   7 sub prepare {
   8     my $class = shift;
   9     # Note: This use of NEXT is deliberately left here (without a use NEXT)
  10     #       to ensure back compat, as NEXT always used to be loaded, but
  11     #       is now replaced by Class::C3::Adopt::NEXT.
  12     my $c = $class->NEXT::prepare(@_);
  13     $c->response->header( 'X-Catalyst-Plugin-Deprecated' => 1 );
  14
  15     return $c;
  16 }
  17
  18 1;