[perl5.git] / lib / perl5db / t / test-dieLevel-option-1

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();
Commit	Line	Data
b705c774 SF	1	use strict;
	2	use warnings;
	3
	4	sub foo
	5	{
	6	print "In foo\n";
	7	bar();
	8	}
	9
	10	sub bar
	11	{
	12	print "In baz\n";
	13	baz();
	14	}
	15
	16	sub baz
	17	{
	18	die "This program dies.";
	19	}
	20
	21	foo();
	22