/[Frey]/trunk/lib/Frey/Config.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Config.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 342 by dpavlin, Sun Nov 9 10:54:30 2008 UTC revision 1133 by dpavlin, Tue Jun 30 15:10:55 2009 UTC
# Line 1  Line 1 
1  package Frey::Config;  package Frey::Config;
2  use Moose::Role;  use Moose::Role;
3    
4    #requires 'debug';
5    
6  use YAML qw/LoadFile/;  use YAML qw/LoadFile/;
7  use Hash::Merge qw/merge/;  use Hash::Merge qw/merge/;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
# Line 22  or C<etc/Foo/Bar.yml> has Line 24  or C<etc/Foo/Bar.yml> has
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    
# Line 33  configuration. Line 35  configuration.
35    
36  our %config;  our %config;
37    
 sub debug { 1 };  
   
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 ) {
# Line 59  sub config { Line 60  sub config {
60          return $config{ $key };          return $config{ $key };
61  }  }
62    
63    no Moose::Role;
64    
65  1;  1;
Legend:
Removed from v.342  
changed lines
  Added in v.1133
  ViewVC Help
Powered by ViewVC 1.1.26