1# perl
2
3use V;
4
5dprofpp( '-T' );
6$expected =
7qq{main::bar
8main::baz
9   main::bar
10   main::foo
11      main::bar
12main::foo
13   main::bar
14};
15report 18, sub { $expected eq $results };
16
17