diff options
author | Shlomi Fish <shlomif@shlomifish.org> | 2012-09-28 20:03:12 +0200 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2012-11-12 09:18:25 -0500 |
commit | 473c46a8966eb3ce66e7b8030b0202bb658a23c1 (patch) | |
tree | ac91ec48621ab585703f0b3ac4be5f4e5fefc7e3 /lib/perl5db | |
parent | 19957b5565b536767d585710f5bc950a96a1abef (diff) | |
download | perl-473c46a8966eb3ce66e7b8030b0202bb658a23c1.tar.gz |
Add a test for the frame option.
Diffstat (limited to 'lib/perl5db')
-rw-r--r-- | lib/perl5db/t/test-frame-option-1 | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/lib/perl5db/t/test-frame-option-1 b/lib/perl5db/t/test-frame-option-1 new file mode 100644 index 0000000000..a6b4dd8c4f --- /dev/null +++ b/lib/perl5db/t/test-frame-option-1 @@ -0,0 +1,26 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +sub my_func +{ + my ($num1, $num2) = @_; + + print $num1+$num2, "\n"; + + my_other_func ($num1*3, $num2*24); + + return $num1*$num2; +} + +sub my_other_func +{ + my ($num1, $num2) = @_; + + print "my_other_func: n1=<$num1> n2=<$num2>\n"; + + return $num1 * $num2; +} + +my_func(1, 50); |