File Coverage

blib/lib/ASP4/ConfigLoader.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	38	39	97.4

package ASP4::ConfigLoader;

use strict;
use warnings 'all';
use Carp 'confess';
use ASP4::ConfigFinder;
use ASP4::ConfigParser;
use JSON::XS ();

our $Configs = { };


#==============================================================================
sub load
{
  my ($s) = @_;

  my $path = ASP4::ConfigFinder->config_path;
  return $Configs->{$path} if $Configs->{$path};

  open my $ifh, '<', $path
    or die "Cannot open '$path' for reading: $!";
  local $/ = '';
  my $doc = JSON::XS->new->decode( scalar(<$ifh>) );
  close($ifh);

  (my $where = $path) =~ s/\/conf\/[^\/]+$//;
  return $Configs->{$path} = ASP4::ConfigParser->new->parse( $doc, $where );
}# end parse()

1;# return true:

__END__