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

use strict;
use warnings;

sub foo
{
    print "In foo\n";
    bar();
}

sub bar
{
    print "In baz\n";
    baz();
}

sub baz
{
    warn "This is not a warning.";

    return;
}

sub myfunc
{
    bar();
}

myfunc();
Commit	Line	Data
ca3d9398 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	warn "This is not a warning.";
	19
	20	return;
	21	}
	22
	23	sub myfunc
	24	{
	25	bar();
	26	}
	27
	28	myfunc();
	29