Opened by Noisebreath at 2007-01-10 15:43
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
Übrigens lässt sich das mit 
Moose deutlich reduzieren (ungetestet):
Moose deutlich reduzieren (ungetestet):Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl
use strict;
use warnings;
package DOCUMENT;
use Moose;
has 'parent' => ( is => 'rw' );
has 'child' => ( is => 'rw' );
has 'doc_format' => ( is => 'rw' );
has 'name' => ( is => 'rw' );
has 'doc_type' => ( is => 'rw' );
has 'spalteninfo' => ( is => 'rw' );
1;