diff options
Diffstat (limited to 'lib/Config.pm6')
-rw-r--r-- | lib/Config.pm6 | 98 |
1 files changed, 77 insertions, 21 deletions
diff --git a/lib/Config.pm6 b/lib/Config.pm6 index 2fa01bf..40bfa27 100644 --- a/lib/Config.pm6 +++ b/lib/Config.pm6 @@ -2,6 +2,8 @@ use v6.c; +use Hash::Merge; + use Config::Exception::MissingParserException; use Config::Exception::UnknownTypeException; use Config::Exception::FileNotFoundException; @@ -10,28 +12,38 @@ use Config::Parser; class Config is export { - has $!content = {}; - has $!path; - has $!parser; + has Hash $!content = {}; + has Str $!path = ""; + has Str $!parser = ""; - multi method get(Str $key, Any $default = Nil) + #| Clear the config. + method clear() { - my $index = $!content; - - for $key.split(".") -> $part { - return $default unless defined($index{$part}); + $!content = {}; + $!path = ""; + $!parser = ""; + } - $index = $index{$part}; - } + #| Return the entire config hash. + multi method get() + { + return $!content; + } - $index; + #| Get a value from the config object. To get a nested + #| key, use a . to descent a level. + multi method get(Str $key, Any $default = Nil) + { + self.get($key.split(".").list, $default); } - multi method get(@keyparts, Any $default = Nil) + #| Get a value from the config object using a list + #| to indicate the nested key to get. + multi method get(List $keyparts, Any $default = Nil) { my $index = $!content; - for @keyparts -> $part { + for $keyparts.list -> $part { return $default unless defined($index{$part}); $index = $index{$part}; @@ -40,6 +52,8 @@ class Config is export $index; } + #| Get the name of the parser module to use for the + #| given path. method get-parser(Str $path, Str $parser = "") { if ($parser ne "") { @@ -49,12 +63,13 @@ class Config is export my $type = self.get-parser-type($path); Config::Exception::UnknownTypeException.new( - type => $type + file => $path ).throw() if $type eq Config::Type::unknown; "Config::Parser::" ~ $type; } + #| Get the type of parser required for the given path. method get-parser-type(Str $path) { given ($path) { @@ -74,23 +89,40 @@ class Config is export return Config::Type::unknown; } - method has(Str $key) { + #| Check wether a given key exists. + multi method has(Str $key) { + self.has($key.split(".").list); + } + + #| Check wether a given key exists using a list to supply + #| the nested key to check. + multi method has(List $keyparts) + { my $index = $!content; - for $key.split(".") -> $part { + for $keyparts.list -> $part { return False unless defined($index{$part}); $index = $index{$part}; } - True; + defined($index); } + #| Reload the configuration. Requires the configuration to + #| have been loaded from a file. multi method read() { + if ($!path eq "") { + return False; + } + return self.load($!path); } + #| Load a configuration file from the given path. Optionally + #| set a parser module name to use. If not set, Config will + #| attempt to deduce the parser to use. multi method read(Str $path, Str $parser = "") { Config::Exception::FileNotFoundException.new( @@ -109,22 +141,43 @@ class Config is export } require ::($!parser); - $!content = ::($!parser).read($path); + + self.read(::($!parser).read($path)); } return True; } + #| Read a list of paths. Will fail on the first file that + #| fails to load for whatever reason. + multi method read(List $paths, Str $parser = "") + { + for $paths.list -> $path { + self.read($path, $parser); + } + + return True; + } + + #| Read a plain Hash into the configuration. multi method read(Hash $hash) { - $!content = $hash; + $!content.merge($hash); + + return True; + } + + #| Set a single key to a given value; + multi method set(Str $key, Any $value) + { + self.set($key.split(".").list, $value); } - method set(Str $key, Any $value) + multi method set(List $keyparts, Any $value) { my $index := $!content; - for $key.split(".") -> $part { + for $keyparts.list -> $part { $index{$part} = {} unless defined($index{$part}); $index := $index{$part}; @@ -135,6 +188,9 @@ class Config is export self; } + #| Write the current configuration to the given path. If + #| no parser is given, it tries to use the parser that + #| was used when loading the configuration. method write(Str $path, Str $parser = "") { $parser = self.get-parser($path, $parser); |