Config::JSON stopped providing a BUILDARGS method, so we can't "around" it. subclass new() the old fashioned way and bump the Config::JSON version dep so we know we're getting the non-Moose one.

This commit is contained in:
Scott Walters 2012-07-10 03:47:02 -04:00
parent f4aacb9098
commit 55aead887b
2 changed files with 5 additions and 6 deletions

View file

@ -100,13 +100,12 @@ The filename of the config file to read.
=cut
around BUILDARGS => sub {
my $orig = shift;
my $class = shift;
sub new {
my $package = shift;
my $filename = shift;
$filename = Cwd::realpath(File::Spec->rel2abs($filename, WebGUI::Paths->configBase));
return $class->$orig($filename);
};
return $package->SUPER::new($filename);
}
1;