diff options
author | Shlomi Fish <shlomif@shlomifish.org> | 2012-09-19 16:33:22 +0300 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2012-11-12 09:18:24 -0500 |
commit | b705c7744a0d4605084116e6be5081cdbe60b62c (patch) | |
tree | 5be4f7fb7cd5f78c0427bc49ca746cb0f352829c /lib/perl5db | |
parent | 8b842515d9c6944f4ebda2e213d04f07b503bdd6 (diff) | |
download | perl-b705c7744a0d4605084116e6be5081cdbe60b62c.tar.gz |
[perl5db] Add test for dieLevel option.
Diffstat (limited to 'lib/perl5db')
-rw-r--r-- | lib/perl5db/t/test-dieLevel-option-1 | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/lib/perl5db/t/test-dieLevel-option-1 b/lib/perl5db/t/test-dieLevel-option-1 new file mode 100644 index 0000000000..0849ae2a0d --- /dev/null +++ b/lib/perl5db/t/test-dieLevel-option-1 @@ -0,0 +1,22 @@ +use strict; +use warnings; + +sub foo +{ + print "In foo\n"; + bar(); +} + +sub bar +{ + print "In baz\n"; + baz(); +} + +sub baz +{ + die "This program dies."; +} + +foo(); + |