package XHTML::Element;
use strict;

sub new($$;$) {
    my $class = shift;
    my $tag = shift;
    my $content = shift || '';


    my $self = {
        tag    =>    $tag,
        content    =>    $content,

        # Attribute
        attributes    =>    [],

        # Kinder
        children    =>    [],

        # Immer die lange Form
        long    =>    0,
    };
    bless $self, $class;
    return $self;
}
return 1;