package Term::Choose_HAE;
use warnings;
use strict;
use Unicode::GCString;

use parent 'Term::Choose';

BEGIN {
    no warnings 'redefine';
    *Term::Choose::_print_columns = sub { # als Funktion im "parent", weil es schnell sein soll.
        ( my $str = $_[0] ) =~ s/\e\[[\d;]*m//msg;
        Unicode::GCString->new( $str )->columns();
    };
}

# ...
# ...