+++ /dev/null
-use strict;\r
-\r
-use Module::Build;\r
-\r
-my $build = Module::Build->new(\r
- module_name => 'Catalyst::Plugin::ConfigLoader',\r
- dist_author => 'Brian Cassidy <bricas@cpan.org>',\r
- license => 'perl',\r
- create_readme => 1,\r
- create_makefile_pl => 'traditional',\r
- requires => {\r
- 'Catalyst::Runtime' => '0',\r
- 'Data::Visitor' => '0.02',\r
- 'Config::Any' => '0.04'\r
- },\r
-);\r
-\r
-$build->create_build_script;\r
-Revision history for Perl extension Catalyst::Plugin::ConfigLoader.\r
+Revision history for Perl extension Catalyst::Plugin::ConfigLoader.
-0.14 Thu Sep 28 2006
+0.14 Tue Apr 03 2007
+ - switch to Module::Install
- added a user manual
-\r
-0.13 Fri Aug 25 2006\r
- - loading code factored out into Config::Any [rataxis@cpan.org]\r
- sponsored by Portugal Telecom\r
-\r
-0.12 Wed Jul 12 2006\r
- - made the "local" suffix overrideable\r
- - fixed __path_to()__ docs\r
-\r
-0.11 Tue Jul 11 2006\r
- - remember, kids: 09 > 1\r
-\r
-0.1 Tue Jul 11 2006\r
- - remove hash merging since it is now a core behavior\r
- - added C/M/V legacy shortcuts\r
- - fixed debug output some\r
- - switched to Module::Pluggable::Object\r
-\r
-0.09 Wed May 24 2006\r
- - ignore non-ref model/view/controller/component keys\r
-\r
-0.08 Tue May 23 2006\r
- - added get_config_path() which extracts the path finding code\r
- - added the ability to specify a MYAPP_CONFIG ENV variable\r
- - more granular merging of top-level hashrefs\r
- - more comprehensive tests\r
-\r
-0.07 Mon May 01 2006\r
- - added Config::General support\r
- - added nicer syntax for specifying models/views/controllers where\r
- available\r
-\r
-0.06 Wed Apr 26 2006\r
- - remove "last;" so that _local configs will be processed\r
-\r
-0.05 Thu Apr 18 2006\r
- - __HOME__ now corresponds to $c->path_to( '' ) and nothing else\r
- - __path_to( 'foo/bar' )__ turns in to $c->path_to( 'foo', 'bar' )\r
- - attemps to load ${config}_local.$ext after ${config}.$ext for\r
- an overriding effect\r
-\r
-0.04 Wed Feb 08 2006\r
- - add finalize_config method\r
- - make default finalize_config traverse the config and substitute\r
- things beginning __HOME__/* with real path\r
- - don't use File::Slurp, produces annoying warnings on some systems\r
-\r
-0.03 Mon Jan 30 2006\r
- - pod fixes\r
-\r
-0.02 Sun Jan 29 2006\r
- - refactoring (suggested by Christian Hansen)\r
-\r
-0.01 Sat Jan 28 2006\r
- - original version\r
+
+0.13 Fri Aug 25 2006
+ - loading code factored out into Config::Any [rataxis@cpan.org]
+ sponsored by Portugal Telecom
+
+0.12 Wed Jul 12 2006
+ - made the "local" suffix overrideable
+ - fixed __path_to()__ docs
+
+0.11 Tue Jul 11 2006
+ - remember, kids: 09 > 1
+
+0.1 Tue Jul 11 2006
+ - remove hash merging since it is now a core behavior
+ - added C/M/V legacy shortcuts
+ - fixed debug output some
+ - switched to Module::Pluggable::Object
+
+0.09 Wed May 24 2006
+ - ignore non-ref model/view/controller/component keys
+
+0.08 Tue May 23 2006
+ - added get_config_path() which extracts the path finding code
+ - added the ability to specify a MYAPP_CONFIG ENV variable
+ - more granular merging of top-level hashrefs
+ - more comprehensive tests
+
+0.07 Mon May 01 2006
+ - added Config::General support
+ - added nicer syntax for specifying models/views/controllers where
+ available
+
+0.06 Wed Apr 26 2006
+ - remove "last;" so that _local configs will be processed
+
+0.05 Thu Apr 18 2006
+ - __HOME__ now corresponds to $c->path_to( '' ) and nothing else
+ - __path_to( 'foo/bar' )__ turns in to $c->path_to( 'foo', 'bar' )
+ - attemps to load ${config}_local.$ext after ${config}.$ext for
+ an overriding effect
+
+0.04 Wed Feb 08 2006
+ - add finalize_config method
+ - make default finalize_config traverse the config and substitute
+ things beginning __HOME__/* with real path
+ - don't use File::Slurp, produces annoying warnings on some systems
+
+0.03 Mon Jan 30 2006
+ - pod fixes
+
+0.02 Sun Jan 29 2006
+ - refactoring (suggested by Christian Hansen)
+
+0.01 Sat Jan 28 2006
+ - original version
+++ /dev/null
-Build.PL\r
-Changes\r
-lib/Catalyst/Plugin/ConfigLoader.pm\r
-lib/Catalyst/Plugin/ConfigLoader/Manual.pod\r
-MANIFEST\r
-t/01-use.t\r
-t/10-live_auto.t\r
-t/20-mock_load.t\r
-t/98-pod_coverage.t\r
-t/99-pod.t\r
-t/lib/TestApp.pm\r
-t/lib/TestApp/testapp.pl\r
-t/lib/TestApp/Controller/Config.pm\r
-t/mockapp/mockapp.pl\r
-t/mockapp/mockapp_local.pl\r
-\r
--- /dev/null
+# Avoid version control files.
+\bRCS\b
+\bCVS\b
+,v$
+\B\.svn\b
+
+# Avoid Makemaker generated and utility files.
+\bMakefile$
+\bblib
+\bMakeMaker-\d
+\bpm_to_blib$
+\bblibdirs$
+^MANIFEST\.SKIP$
+
+# Avoid Module::Build generated and utility files.
+\bBuild$
+\b_build
+
+# Avoid temp and backup files.
+~$
+\.tmp$
+\.old$
+\.bak$
+\#$
+\b\.#
+\.DS_Store$
+
+# No tarballs!
+\.gz$
-use Test::More tests => 1;\r
-\r
-BEGIN { \r
- use_ok( 'Catalyst::Plugin::ConfigLoader' );\r
-}\r
+use Test::More tests => 1;
+
+BEGIN {
+ use_ok( 'Catalyst::Plugin::ConfigLoader' );
+}
-use strict;\r
-use warnings;\r
-\r
-use FindBin;\r
-use lib "$FindBin::Bin/lib";\r
-\r
-use Test::More tests => 4;\r
-\r
-use Catalyst::Test 'TestApp';\r
-\r
-{\r
- my $response;\r
- ok( $response = request('http://localhost/config/'), 'request ok' );\r
- is( $response->content, 'foo', 'config ok' );\r
-\r
- $response = request('http://localhost/appconfig/cache');\r
- ok( $response->content !~ /^__HOME__/, 'home dir substituted in config var' );\r
-\r
- $response = request('http://localhost/appconfig/foo');\r
- is( $response->content, 'bar', 'app finalize_config works' );\r
-}\r
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use Test::More tests => 4;
+
+use Catalyst::Test 'TestApp';
+
+{
+ my $response;
+ ok( $response = request('http://localhost/config/'), 'request ok' );
+ is( $response->content, 'foo', 'config ok' );
+
+ $response = request('http://localhost/appconfig/cache');
+ ok( $response->content !~ /^__HOME__/, 'home dir substituted in config var' );
+
+ $response = request('http://localhost/appconfig/foo');
+ is( $response->content, 'bar', 'app finalize_config works' );
+}
-package MockApp;\r
-\r
-use Test::More tests => 7;\r
-\r
-use Cwd;\r
-$ENV{ CATALYST_HOME } = cwd . '/t/mockapp';\r
-\r
-use_ok( 'Catalyst', qw( ConfigLoader ) );\r
-\r
-__PACKAGE__->setup;\r
-\r
-ok( __PACKAGE__->config );\r
-is( __PACKAGE__->config->{ 'Controller::Foo' }->{ foo }, 'bar' );\r
-is( __PACKAGE__->config->{ 'Controller::Foo' }->{ new }, 'key' );\r
-is( __PACKAGE__->config->{ 'Model::Baz' }->{ qux }, 'xyzzy' );\r
-is( __PACKAGE__->config->{ 'Model::Baz' }->{ another }, 'new key' );\r
-is( __PACKAGE__->config->{ 'view' }, 'View::TT::New' );\r
+package MockApp;
+
+use Test::More tests => 7;
+
+use Cwd;
+$ENV{ CATALYST_HOME } = cwd . '/t/mockapp';
+
+use_ok( 'Catalyst', qw( ConfigLoader ) );
+
+__PACKAGE__->setup;
+
+use Data::Dumper; print Dumper __PACKAGE__->config;
+
+ok( __PACKAGE__->config );
+is( __PACKAGE__->config->{ 'Controller::Foo' }->{ foo }, 'bar' );
+is( __PACKAGE__->config->{ 'Controller::Foo' }->{ new }, 'key' );
+is( __PACKAGE__->config->{ 'Model::Baz' }->{ qux }, 'xyzzy' );
+is( __PACKAGE__->config->{ 'Model::Baz' }->{ another }, 'new key' );
+is( __PACKAGE__->config->{ 'view' }, 'View::TT::New' );
-use Test::More;\r
-eval "use Test::Pod::Coverage 1.00";\r
-plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage" if $@;\r
-all_pod_coverage_ok();
\ No newline at end of file
+use Test::More;
+eval "use Test::Pod::Coverage 1.00";
+plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage" if $@;
+all_pod_coverage_ok();
-use Test::More;\r
-eval "use Test::Pod 1.00";\r
-plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;\r
-all_pod_files_ok();
\ No newline at end of file
+use Test::More;
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+all_pod_files_ok();
-package TestApp::Controller::Config;\r
-\r
-use strict;\r
-use warnings;\r
-\r
-use base qw( Catalyst::Controller );\r
-\r
-sub index : Private {\r
- my( $self, $c ) = @_;\r
- $c->res->output( $self->{ foo } );\r
-}\r
-\r
-1;
\ No newline at end of file
+package TestApp::Controller::Config;
+
+use strict;
+use warnings;
+
+use base qw( Catalyst::Controller );
+
+sub index : Private {
+ my( $self, $c ) = @_;
+ $c->res->output( $self->{ foo } );
+}
+
+1;
{
- name => 'TestApp',
- Controller::Config => {
- foo => 'foo'
- },
- cache => '__HOME__/cache',
+ name => 'TestApp',
+ Controller::Config => {
+ foo => 'foo'
+ },
+ cache => '__HOME__/cache',
}
-{\r
- name => 'TestApp',\r
- view => 'View::TT',\r
- 'Controller::Foo' => {\r
- foo => 'bar'\r
- },\r
- 'Model::Baz' => {\r
- qux => 'xyzzy'\r
- }\r
-}
\ No newline at end of file
+{
+ name => 'TestApp',
+ view => 'View::TT',
+ 'Controller::Foo' => {
+ foo => 'bar'
+ },
+ 'Model::Baz' => {
+ qux => 'xyzzy'
+ }
+}
-{\r
- view => 'View::TT::New',\r
- 'Controller::Foo' => {\r
- new => 'key'\r
- },\r
- Component => {\r
- 'Model::Baz' => {\r
- 'another' => 'new key'\r
- }\r
- }\r
-}
\ No newline at end of file
+{
+ view => 'View::TT::New',
+ 'Controller::Foo' => {
+ new => 'key'
+ },
+ Component => {
+ 'Model::Baz' => {
+ 'another' => 'new key'
+ }
+ }
+}