mirror of
https://codeberg.org/scip/Data-Interactive-Inspect.git
synced 2025-12-17 04:31:00 +01:00
fixed array commands to work inside arrays, fixed quit command
This commit is contained in:
25
t/testshell.pl
Executable file
25
t/testshell.pl
Executable 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);
|
||||
Reference in New Issue
Block a user