24 |
|
|
25 |
baz: 42 |
baz: 42 |
26 |
|
|
27 |
You can also force config re-load with |
You can also force config reload with |
28 |
|
|
29 |
Foo::Bar->load_config('custom'); |
Foo::Bar->load_config('custom'); |
30 |
|
|
37 |
|
|
38 |
sub load_config { |
sub load_config { |
39 |
my $self = shift; |
my $self = shift; |
40 |
|
%config = (); |
41 |
foreach my $name ( 'config', 'site_config', ref($self), @_ ) { |
foreach my $name ( 'config', 'site_config', ref($self), @_ ) { |
42 |
my $path = "etc/$name.yml"; |
my $path = "etc/$name.yml"; |
43 |
if ( $path =~ s{::}{/}g ) { |
if ( $path =~ s{::}{/}g ) { |