sub DESTROY {
  my $this = shift;
  my @err = $this->error;
  while (@err) {
    my $msg = shift @err;
    carp "$this destroyed with error: '$msg'"
        .(@err ? ' (and '.scalar @err.' more).' : '.');
  }
}