{
    package DBI;

    sub err_loud {
        my $self = shift;
        return uc( $self->err() );
    }
}