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;

my $tree = Tree::Simple::Extended->new('.', Tree::Simple->ROOT);
$tree->addChildren(
	Tree::Simple::Extended->new('|')->addChildren(
		Tree::Simple::Extended->new("1"),
		Tree::Simple::Extended->new("2"),
	),
	Tree::Simple::Extended->new("3"),
);

     my $self = bless({}, $class);
    
    $self->SUPER::new(@_);

my $self = $class->SUPER::new( @_ );