#!/usr/bin/perl -w
#-------------------------------------------------------
# Quick and dirty test script
#-------------------------------------------------------

use strict;
use Data::Walker;

my $s = {

	a => [ 10, 20, "thirty" ],
	b => { 
		"w" => "forty", 
		"x" => "fifty", 
		"y" => 60,
		"z" => \70,
	},
	c => sub { print "I'm a data structure!\n"; },
	d => 80,
};

$s->{e}      = \$s->{d};
$s->{b}->{v} =  $s->{b};   #recursive 

Data::Walker->cli($s);

1;