File Coverage

blib/lib/Mojar/Config/Ini.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	13	18	72.2
condition	10	13	76.9
subroutine	4	4	100.0
pod	1	1	100.0
total	60	68	88.2

package Mojar::Config::Ini;
use Mojar::Config -base;

our $VERSION = 0.031;
# Adapted from Mojolicious::Plugin::Config (3.57)

use Carp 'croak';
use Mojo::Util 'decode';

sub parse {
  my ($self, $content_ref, %param) = @_;
  $param{sections} //= ':all';
  croak 'Unrecognised sections spec'
    unless ref $param{sections} eq 'ARRAY'
        or $param{sections} eq ':all' or $param{sections} eq ':ignore';

  return {} unless $$content_ref;

  my $config = {};
  my $section = '_';
  while ($$content_ref =~ /^(.*)$/gm) {
    $_ = $1;
    next unless /\S/;  # blank line
    next if /^\s*#/;  # comment line
    $section = $1, $config->{$section} = {}, next
      if /^\s*\[([^\]]+)\]/;  # section header
    if (/^\s*([\w-]+)\s+=\s+(\S.*?)\s*$/) {
      if ($param{sections} eq ':ignore') {
        $config->{$1} = $2;
      }
      else {
        $config->{$section}{$1} = $2;
      }
    }
    else {
      croak qq{Failed to parse configuration line ($_)} if !$config && $@;
    }
  }

  if (ref $param{sections} eq 'ARRAY') {
    my $cfg = {};
    %$cfg = (%$cfg, %{$config->{$_} // {}}) for @{$param{sections}};
    return $cfg;
  }
  return $config;
}

1;
__END__