#!/usr/bin/perl
use warnings;
use strict;

use Config::Simple;
use Data::Dumper;

my %config;

Config::Simple->import_from('conf.ini', \%config)
    or die Config::Simple->error();

#print Dumper(\%config);

my @data = qw< foo bar baz quux >;

print "Requirements ".$config{'requirements.test_foo'}."\n";

print "Requirements Array ".$config{'requirements.@test'}."\n";

print "Requirements Hash ".$config{'requirements.%test-2'}."\n";

foreach ( @data ) {  # Verify
    warn( "Parameter '$_' is missing from INI!\n" )
      unless exists $config{$_};
}

foreach ( @data ) {  # Verify
    warn( "Parameter '$_' is missing from INI!\n" )
      unless exists $config{'requirements.@test'};
}

foreach ( @data ) {  # Verify
    warn( "Parameter '$_' is missing from INI!\n" )
      unless exists $config{'requirements.%test-2'};
}