The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

FSEITZ / Quiq-1.225 / lib / Quiq / Html / Base.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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
—
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
—
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114

              
# -----------------------------------------------------------------------------
=encoding utf8
=head1 NAME
Quiq::Html::Base - Basisklasse fĂĽr HTML-Komponenten
=head1 BASE CLASS
L<Quiq::Hash>
=head1 DESCRIPTION
Die Klasse ist die Basisklasse fĂĽr alle HTML-Konstrukte, die aus
mehr als einem HTML-Tag aufgebaut sind und/oder eine komplexe
Logik besitzen, die durch eine Klasse gekapselt werden soll.
=head1 ATTRIBUTES
=over 4
=item class => $class (Default: undef)
CSS-Klasse.
=item id => $str (Default: undef)
DOM-Id der Komponente.
=item cssPrefix => $str (Default: '')
Präfix für CSS-Klassennamen. Dieser Präfix wird den
CSS-Klassennamen vorangestellt. (MEMO: dieses Konzept ist zweifelhaft
und sollte abgeschafft werden)
=back
=cut
# -----------------------------------------------------------------------------
package Quiq::Html::Base;
use base qw/Quiq::Hash/;
use v5.10;
use strict;
use warnings;
our $VERSION = '1.225';
# -----------------------------------------------------------------------------
=head1 METHODS
=head2 Konstruktor
=head3 new() - Konstruktor
=head4 Synopsis
  $obj = $class->new(@keyVal);
=head4 Description
Instantiiere eine Html-Komponente mit allen Attributen (auch
der Subklasse) und liefere eine Referenz auf das Objekt zurĂĽck.
=cut
# -----------------------------------------------------------------------------
sub new {
    my $class = shift;
    # @_: @keyVal
    my $self = $class->SUPER::new(
        class => undef,
        cssPrefix => undef,
        id => undef,
    );
    $self->unlockKeys;
    $self->set(@_); # Wir dĂĽrfen die Attribute beliebig erweitern
    $self->lockKeys;
    return $self;
}
# -----------------------------------------------------------------------------
=head1 VERSION
1.225
=head1 AUTHOR
Frank Seitz, L<http://fseitz.de/>
=head1 COPYRIGHT
Copyright (C) 2025 Frank Seitz
=head1 LICENSE
This code is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
# -----------------------------------------------------------------------------
1;
# eof