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