my $q = new_ok Q => [5]
  or BAIL_OUT("too awful");
##</code><code>##

my $q = Q->new(5);
unless (blessed $q and $q->isa('Q')) {
  warn "new did not return an object which isa Q";
  # and note that the line number reported by "warn" here
  # is actually two lines *after* the real error occurred.
}