package Tree::Simple::Extended; use base qw/Tree::Simple/; use strict; use warnings; use Class::Param; # return everything as utf-8 our $PARAM_UTF8 = 0; =head1 Tree::Simple::Extended Adaption von Tree::Simple: Hinzufügen benutzerdefinierter Felder. =cut sub new { my $class = shift; my $self = bless({}, $class); $self->SUPER::new(@_); return $self; } # /new 1;