1 2 3 4 5 6 7 8 9 10
# perl use V; dprofpp( '-T' ); $expected = qq{main::BEGIN main::foo }; report 19, sub { $expected eq $results };