bash-3.2$ cat t4.pl
#!/usr/bin/perl
sub foo {
print "inside foo\n";
}
foo(
[1..3],
{a => 4, b => 5},
'a' x 6,
789,
);
bash-3.2$ perl -d t4.pl
Loading DB routines from perl5db.pl version 1.3
Editor support available.
Enter h or `h h' for help, or `man perldebug' for more help.
main::(t4.pl:7): foo(
main::(t4.pl:8): [1..3],
main::(t4.pl:9): {a => 4, b => 5},
main::(t4.pl:10): 'a' x 6,
main::(t4.pl:11): 789,
main::(t4.pl:12): );
DB<1> s
main::foo(t4.pl:4): print "inside foo\n";
DB<1> T
. = main::foo(ref(ARRAY), ref(HASH), 'aaaaaa', 789) called from file `
+t4.pl' line 7
DB<1> x @DB::args
0 ARRAY(0x100812fe0)
0 1
1 2
2 3
1 HASH(0x10097d318)
'a' => 4
'b' => 5
2 'aaaaaa'
3 789
DB<2> q
|