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 use base qw/Catalyst::Base/;
   8
   9 sub prepare {
  10     my $class = shift;
  11     # Note: This use of NEXT is deliberately left here (without a use NEXT)
  12     #       to ensure back compat, as NEXT always used to be loaded, but
  13     #       is now replaced by Class::C3::Adopt::NEXT.
  14     my $c = $class->NEXT::prepare(@_);
  15     $c->response->header( 'X-Catalyst-Plugin-Deprecated' => 1 );
  16
  17     return $c;
  18 }
  19
  20 1;