#!/usr/bin/env perl
use lib qw( lib );
use Foo;
use 5.12.0;

my $foo = Foo->new_with_options(
                                configuration_file => [ qw( answer1.xml answer2.xml) ],
                               );

$foo->merge_config_from_file( qw( answer3.xml answer4.xml ) );
$foo->configuration_file( [ qw( answer5.xml ) ] );

say "answer=", $foo->answer();
say
  " answer0=", $foo->answer0(),
  " answer1=", $foo->answer1(),
  " answer2=", $foo->answer2(),
  " answer3=", $foo->answer3(),
  " answer4=", $foo->answer4();
say
  " answer5=", $foo->answer5(),
  " answer6=", $foo->answer6(),
  " answer7=", $foo->answer7(),
  " answer8=", $foo->answer8(),
  " answer9=", $foo->answer9();
say
  "no more";