sub new($$;$) {
    my ($class, $dbi, $hash) = (@_);
    croak "DBI::Pretty requires a valid DBI object"
      unless $dbi;
    $hash ||= {};