# --> This is an example configuration file, foo.conf
$default_profile = 'alpha';
%profiles = (
	'alpha' => { path => '/etc/alpha', recurse => 1 },
	'beta' => { path => '/var/beta', recurse => 0 },
);
@resources = qw/ xyz abc def /;

##</code><code>##

use Config::Perl;

my $parser = Config::Perl->new;
my $conf = $parser->parse_or_die('foo.conf');

use Data::Dumper;
print Dumper($conf);

##</code><code>##

$VAR1 = {
  '$default_profile' => 'alpha',
  '%profiles' => {
    'alpha' => { 'path' => '/etc/alpha', 'recurse' => 1 },
    'beta' => { 'path' => '/var/beta', 'recurse' => 0 }
  },
  '@resources' => [ 'xyz', 'abc', 'def' ]
};

##</code><code>##

use Data::Dumper;
$Data::Dumper::Purity=1;     # setting these two options like this
$Data::Dumper::Terse=0;      # is important (see also "Dump" below)

use Data::Undump::PPI;

my @input = ( {foo=>"bar"}, ["Hello","World"], "undumping!" );
my $str = Dumper(@input);
my @parsed = Undump($str);

##</code><code>##

use Data::Undump::PPI qw/Dump Undump/;

Dump(\@state_out, file=>'state.pl');

my @state_in = Undump(file=>'state.pl');