oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bump Config::JSON requirement and use Moose for WebGUI::Config

Browse source
This commit is contained in:
Graham Knop 2010-03-19 18:39:17 -05:00
parent 936708f98a
commit 8f6ae3f47e
2 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/Config.pm
View file

@ -14,11 +14,12 @@ package WebGUI::Config;
=cut
use strict;
use Moose;
extends 'Config::JSON';
use WebGUI::Paths;
use Cwd ();
use File::Spec;
use base 'Config::JSON';
my %config = ();
@ -153,7 +154,8 @@ A boolean value that when set to true tells the config system not to store the c
=cut
sub new {
around new => sub {
my $orig = shift;
my $class = shift;
my $filename = shift;
my $noCache = shift;
@ -164,11 +166,11 @@ sub new {
return $config{$filename};
}
else {
my $self = $class->SUPER::new($filename);
my $self = $class->$orig($filename);
$config{$filename} = $self unless $noCache;
return $self;
}
}
};
#-------------------------------------------------------------------