[catagits/Catalyst-Plugin-ConfigLoader.git] / t / lib / TestApp.pm

package TestApp;

use strict;
use warnings;

use MRO::Compat;

use Catalyst qw/ConfigLoader/;

our $VERSION = '0.01';

__PACKAGE__->setup;

sub finalize_config {
    my $c = shift;
    $c->config( foo => 'bar' );
    $c->next::method();
}

sub appconfig : Local {
    my ( $self, $c, $var ) = @_;
    $c->res->body( $c->config->{ $var } );
}

1;
Commit	Line	Data
b2d85594	1	package TestApp;
	2
	3	use strict;
	4	use warnings;
	5
60f98160	6	use MRO::Compat;
60f98160	7
b2d85594	8	use Catalyst qw/ConfigLoader/;
	9
	10	our $VERSION = '0.01';
	11
	12	__PACKAGE__->setup;
	13
9742697f	14	sub finalize_config {
9742697f	15	my $c = shift;
587d381b	16	$c->config( foo => 'bar' );
60f98160	17	$c->next::method();
9742697f	18	}
	19
	20	sub appconfig : Local {
587d381b	21	my ( $self, $c, $var ) = @_;
587d381b	22	$c->res->body( $c->config->{ $var } );
9742697f	23	}
9742697f	24
b2d85594	25	1;