1 use Test::More tests => 5;
\r
3 my $app = MockApp->new;
\r
7 is( $app->config->{ 'Controller::Foo' }->{ foo }, 'bar' );
\r
8 is( $app->config->{ 'Controller::Foo' }->{ new }, 'key' );
\r
9 is( $app->config->{ 'Model::Baz' }->{ qux }, 'xyzzy' );
\r
10 is( $app->config->{ 'Model::Baz' }->{ another }, 'new key' );
\r
14 use base qw( Catalyst::Plugin::ConfigLoader );
\r
16 use Catalyst::Utils;
\r
19 return bless { }, shift;
\r
32 $self->{ _config } = {} unless $self->{ _config };
\r
34 my $config = @_ > 1 ? {@_} : $_[0];
\r
35 while ( my ( $key, $val ) = each %$config ) {
\r
36 $self->{ _config }->{$key} = $val;
\r
39 return $self->{ _config };
\r