Commit | Line | Data |
---|---|---|
19a24dbb | 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; |