fixed array commands to work inside arrays, fixed quit command

This commit is contained in:
TLINDEN
2015-02-08 19:06:08 +01:00
parent 3863954245
commit b3b3098338
3 changed files with 145 additions and 37 deletions

25
t/testshell.pl Executable file
View File

@@ -0,0 +1,25 @@
#!/usr/bin/perl
use lib qw (blib/lib);
use Data::Interactive::Inspect;
use Data::Dumper;
my $s = {
h => [1,2,3,4,5],
users => [
{ login => 'max', age => 12 },
{ login => 'leo', age => 23 },
],
any => {
fear => {
settings => {
height => 89,
mode => 'normal',
looks => [ 3,5,6],
}
},
}
};
my $shell = Data::Interactive::Inspect->new($s);
my $x = $shell->inspect();
#print Dumper($x);