+ is $@, '', "no indirect; eval 'my \$x = new Bar'";
+ if ($] < 5.009005) {
+ is @w, 0, 'no warnings caught';
+ pass 'placeholder';
+ } else {
+ is @w, 1, 'got one warning';
+ diag join "\n", 'All warnings:', @w if @w > 1;
+ like $w[0], expect('Bar'), 'correct warning';
+ }