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