xref: /openbsd-src/gnu/usr.bin/perl/lib/perl5db/t/test-warnLevel-option-1 (revision 91f110e064cd7c194e59e019b83bb7496c1c84d4) 
1*91f110e0Safresh1use strict;
2*91f110e0Safresh1use warnings;
3*91f110e0Safresh1
4*91f110e0Safresh1sub foo
5*91f110e0Safresh1{
6*91f110e0Safresh1    print "In foo\n";
7*91f110e0Safresh1    bar();
8*91f110e0Safresh1}
9*91f110e0Safresh1
10*91f110e0Safresh1sub bar
11*91f110e0Safresh1{
12*91f110e0Safresh1    print "In baz\n";
13*91f110e0Safresh1    baz();
14*91f110e0Safresh1}
15*91f110e0Safresh1
16*91f110e0Safresh1sub baz
17*91f110e0Safresh1{
18*91f110e0Safresh1    warn "This is not a warning.";
19*91f110e0Safresh1
20*91f110e0Safresh1    return;
21*91f110e0Safresh1}
22*91f110e0Safresh1
23*91f110e0Safresh1sub myfunc
24*91f110e0Safresh1{
25*91f110e0Safresh1    bar();
26*91f110e0Safresh1}
27*91f110e0Safresh1
28*91f110e0Safresh1myfunc();
29*91f110e0Safresh1
30