[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 {
	13	my $c = shift;
	14	$c->config(foo => 'bar');
	15	$c->NEXT::finalize_config;
	16	}
	17
	18	sub appconfig : Local {
	19	my ($self,$c,$var) = @_;
	20	$c->res->body($c->config->{$var});
	21	}
	22
b2d85594	23	1;