package Term::Choose_HAE;

use warnings;
use strict;
use 5.010001;

our $VERSION = '0.005';
use Exporter 'import';
our @EXPORT_OK = qw( choose );

use Unicode::GCString;

use parent 'Term::Choose';


sub _print_columns {
    ( my $str = $_[0] ) =~ s/\e\[[\d;]*m//msg;
    Unicode::GCString->new( $str )->columns();
};


sub choose {
    if ( ref $_[0] ne 'Term::Choose_HAE' ) {
        return Term::Choose_HAE->new()->Term::Choose::__choose( @_ );
    }
    my $self = shift;
    return $self->Term::Choose::__choose( @_ );
}

1;
__END__