[catagits/Catalyst-Runtime.git] / t / lib / CAFCompatTestPlugin.pm

package CAFCompatTestPlugin;

# This plugin specificially tests an edge case of CAF compat,
# where you load a plugin which uses base CAF, and then override
# a core catalyst accessor (_config in this case)..

# This is what happens if you use the authentication back-compat
# stuff, as C::A::Plugin::Credential::Password is added to the plugin
# list, and the base C::A::C::P class, does the mk_accessors, and
# then the C::P::A class calls the config method before setup finishes...

use strict;
use warnings;

# Note that we don't actually _really_ use CAF here, as MX::Adopt::CAF
# is in place...
use base qw/Class::Accessor::Fast/;

BEGIN {
    __PACKAGE__->mk_accessors(qw/_config/);
}

sub setup {
    my $app = shift;

    $app->config;
    $app->NEXT::setup(@_);
}

1;
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;