use Exception::Class (
    ...< other exception classes > ...
    'Exception::Class::DBI::STH' =>
    { isa => 'Exception::Class::DBI::H',
      description => 'DBI statment handle exception',
      fields => [qw(num_of_fields num_of_params 
	            field_names
                    type precision scale nullable
                    cursor_name param_values 
                    statement rows_in_cache)]
    }
);