Thread Perl/Tk und Moose-Attribut (6 answers)
Opened by pktm at 2012-07-23 14:40

Raubtier
 2012-07-23 16:29
#160152 #160152
User since
2012-05-04
1076 Artikel
BenutzerIn
[default_avatar]
Auf deine eigentliche Frage kenne ich die Antwort leider nicht direkt.

Allerdings:
Wenn du Mosse benutzt, warum schreibst du dann deine eigene "new" Methode mit bless? Das macht Moose doch für dich. Wenn du beim Kontruieren des Objektes gleich was machen möchtest, dann kannst du sub BUILD nehmen.

Aber warum nimmst du nicht einfach ein Scalar-Ref als Typ?
Code: (dl )
1
2
3
subtype 'TkRef' => as 'ScalarRef';
coerce 'TkRef', from 'Str', via { my $r = $_; return \$r };
has 'some_val' => (is => 'rw', isa => 'TkRef', coerce => 1);


Dann kannst du problemlos -textvariable => $self->some_val schreiben, und auch ein Erzeugen mit my $app = MyTest->new(some_val => '123'); geht dann.

View full thread Perl/Tk und Moose-Attribut