Select Code to Download

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

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