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

package TestApp;

use strict;
use warnings;

use Catalyst qw/ConfigLoader/;

our $VERSION = '0.01';

__PACKAGE__->setup;

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

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
	6	use Catalyst qw/ConfigLoader/;
	7
	8	our $VERSION = '0.01';
	9
	10	__PACKAGE__->setup;
	11
9742697f	12	sub finalize_config {
9742697f	13	my $c = shift;
587d381b	14	$c->config( foo => 'bar' );
9742697f	15	$c->NEXT::finalize_config;
	16	}
	17
	18	sub appconfig : Local {
587d381b	19	my ( $self, $c, $var ) = @_;
587d381b	20	$c->res->body( $c->config->{ $var } );
9742697f	21	}
9742697f	22
b2d85594	23	1;