Commit | Line | Data |
8716efe7 |
1 | package CAFCompatTestPlugin; |
2 | |
3 | # This plugin specificially tests an edge case of CAF compat, |
4 | # where you load a plugin which uses base CAF, and then override |
5 | # a core catalyst accessor (_config in this case).. |
6 | |
7 | # This is what happens if you use the authentication back-compat |
8 | # stuff, as C::A::Plugin::Credential::Password is added to the plugin |
9 | # list, and the base C::A::C::P class, does the mk_accessors, and |
10 | # then the C::P::A class calls the config method before setup finishes... |
11 | |
12 | use strict; |
13 | use warnings; |
14 | |
15 | # Note that we don't actually _really_ use CAF here, as MX::Adopt::CAF |
16 | # is in place... |
17 | use base qw/Class::Accessor::Fast/; |
18 | |
19 | BEGIN { |
20 | __PACKAGE__->mk_accessors(qw/_config/); |
21 | } |
22 | |
23 | sub setup { |
24 | my $app = shift; |
25 | |
26 | $app->config; |
27 | $app->NEXT::setup(@_); |
28 | } |
29 | |
30 | 1; |