Commit | Line | Data |
---|---|---|
19a24dbb | 1 | package Catalyst::Plugin::Test::Deprecated; |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | use NEXT; | |
6 | ||
19a24dbb | 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; |