Leser: 3
|< 1 2 >| | 13 Einträge, 2 Seiten |
use XHTML::Element;
use Element;
use XHTML::Elemente;
use Element.pm;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
package XHTML::Document;
use XHTML::Element;
use strict;
sub new($) {
my $class = shift;
my $self = {
head => new XHTML::Element('head'),
body => new XHTML::Element('body'),
};
bless $self, $class;
return $self;
}
return 1;
|< 1 2 >| | 13 Einträge, 2 Seiten |