mirror of
https://codeberg.org/scip/Data-Interactive-Inspect.git
synced 2025-12-16 20:21:02 +01:00
26 lines
467 B
Perl
Executable File
26 lines
467 B
Perl
Executable File
#!/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);
|