--- trunk/lib/Frey/Config.pm 2008/11/17 17:55:50 377 +++ trunk/lib/Frey/Config.pm 2008/11/17 18:03:52 378 @@ -32,11 +32,11 @@ =cut our %config; - -sub debug { 1 }; +our $debug; sub load_config { my $self = shift; + $debug = $self->debug if $self->can('debug'); foreach my $name ( 'config', 'site_config', ref($self), @_ ) { my $path = "etc/$name.yml"; if ( $path =~ s{::}{/}g ) { @@ -45,7 +45,7 @@ } else { %config = %{ merge( LoadFile($path) , \%config ) } if -e $path; } - warn "## load_config $path current config = ",dump( %config ) if $self->debug; + warn "## load_config $path current config = ",dump( %config ) if $debug; } }