ensure_quoted( $name );
$dbh->do( "DELETE FROM user WHERE name = $name" );

sub ensure_quoted {
    return if ref $_[0] ne ''
           && $_[0]->isa( 'Magic::DBI::Quote' );
    if ( $just_fix_it ) {
        # replace caller's variable
        $_[0] = $dbh->quote( $_[0] );
    }
    elsif ( $raise_the_red_flag ) {
        die "Oh noes! Unquoted string '$_[0]'";
    }
}