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