use DDP {deparse => 1};
sub show {
my $args = shift;
p $args;
}
my $str = 'string';
show($str);
my @array = (0, 1, 2);
show(\@array);
my %obj = (key1 => 'value1', key2 => 'value2');
show(\%obj);
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use DDP {deparse => 1};
sub show {
my $args = shift;
p $args;
}
my $str = 'string';
show($str);
my $array = [0, 1, 2];
show($array);
my $obj = {key1 => 'value1', key2 => 'value2'};
show($obj);