CPAN::Groonga

#!/usr/bin/env perl

# using object interface

=head1 dro.pl

 This script evals a file that is a perl script containing only a Perl Hash

 The script then prints the values and path to the values, using the Object interface

 This will not work when passed JSON data

=cut


use strict;
use warnings;
use Data::Dumper;
use IO::File;
use Getopt::Long;
#use lib './lib'; # development use only
use Data::Ref::JSON;

my $debugLevel=0;
# test case file
my $tcFile = 'test-files/tc02.pl';
my $help=0;

GetOptions (
	"l|debug-level=i" => \$debugLevel,
	"f|test-file=s" => \$tcFile,
	"h|help!" => \$help
) or die usage(1);

if ($help) {
	usage();
	exit;
}


my $fh = new IO::File;

$fh->open($tcFile,'r') || die "cannot open $tcFile = $!\n";

my $slurpSave=$/;
undef $/; # slurp mode for file read
my $tcStr = <$fh>;
$/ = $slurpSave;

# read a perl script, and getting the JSON from it
# the hash is $tc in the script
my $tc;
eval $tcStr; 

my $dr = Data::Ref::JSON->new (
	{
		DEBUG	=> $debugLevel,
		DATA	=> $tc
	}
);

$dr->walk;

sub usage {
	print qq{

  $0 -[l|-debug-level] -[f|-test-file]  -[h|-help]

};
}