Thread Überschreiben einer Funktion (13 answers)
Opened by Kuerbis at 2015-09-10 13:56

Kuerbis
 2015-09-10 13:56
#182133 #182133
User since
2011-03-20
947 Artikel
BenutzerIn
[default_avatar]
Hallo, kann man das so machen (Überschreiben einer Funktion), oder ist so etwas eher nicht gut oder unschön?

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

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();
    };
}

# ...
# ...

View full thread Überschreiben einer Funktion