Message/DOM/CSSRule.pm

package Message::DOM::CSSRule;
use strict;
our $VERSION=do{my @r=(q$Revision: 1.12 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
push our @ISA, 'Message::IF::CSSRule';

## |CSSRule| constants

sub STYLE_RULE () { 1 }
sub CHARSET_RULE () { 2 }
sub IMPORT_RULE () { 3 }
sub MEDIA_RULE () { 4 }
sub FONT_FACE_RULE () { 5 }
sub PAGE_RULE () { 6 }
sub NAMESPACE_RULE () { 7 }

sub AUTOLOAD {
  my $method_name = our $AUTOLOAD;
  $method_name =~ s/.*:://;
  return if $method_name eq 'DESTROY';

  if ({
    ## Read-only attributes (trivial accessors)
    parent_rule => 1,
    parent_style_sheet => 1,
  }->{$method_name}) {
    no strict 'refs';
    eval qq{
      sub $method_name (\$) {
        return \${\$_[0]}->{$method_name}; 
      }
    };
    goto &{ $AUTOLOAD };
  } else {
    require Carp;
    Carp::croak (qq<Can't locate method "$AUTOLOAD">);
  }
} # AUTOLOAD

## |CSSRule| attributes

sub css_text ($) {
  die "$0: ".(ref $self)."->css_text: Not implemented";
} # css_text

sub parent_rule ($);

sub parent_style_sheet ($);

sub type ($) {
  die "$0: ".(ref $self)."->type: Not implemented";
} # type

package Message::DOM::CSSStyleRule;
push our @ISA, 'Message::DOM::CSSRule', 'Message::IF::CSSStyleRule';

sub ____new ($$$) {
  my $self = bless \{_selector => $_[1], style => $_[2]}, $_[0];
  ## TODO: style -> owner
  return $self;
} # ____new

## |CSSRule| attributes

## TODO: |css_text|

sub type ($) { Message::DOM::CSSRule::STYLE_RULE }

## |CSSStyleRule| attributes

## TODO: |selector_text|

sub style ($) {
  return ${$_[0]}->{style};
} # style

package Message::DOM::CSSCharsetRule;
push our @ISA, 'Message::DOM::CSSRule', 'Message::IF::CSSCharsetRule';

sub ____new ($$) {
  return bless \{encoding => $_[1]}, $_[0];
} # ____new

## |CSSRule| attributes

## TODO: |css_text|

sub type ($) { Message::DOM::CSSRule::CHARSET_RULE }

## |CSSCharsetRule| attribute

sub encoding ($) {
  return ${$_[0]}->{encoding};
} # encoding

package Message::DOM::CSSImportRule;
push our @ISA, 'Message::DOM::CSSRule', 'Message::IF::CSSImportRule';

sub ____new ($$$$) {
  my $self = bless \{href => $_[1], media => $_[2], style_sheet => $_[3]}, $_[0];
  ## TODO: $_[3] owner_style_sheet
  return $self;
} # ____new

## |CSSRule| attributes

## TODO: |css_text|

sub type ($) { Message::DOM::CSSRule::IMPORT_RULE }

## |CSSImportRule| attributes

sub href ($) {
  return ${$_[0]}->{href};
} # href

sub media ($) {
  return ${$_[0]}->{media};
} # media

sub style_sheet ($) {
  return ${$_[0]}->{style_sheet};
} # style_sheet

package Message::DOM::CSSMediaRule;
push our @ISA, 'Message::DOM::CSSRule', 'Message::IF::CSSMediaRule';

sub ____new ($$$) {
  my $self = bless \{media => $_[1], css_rules => $_[2]}, $_[0];
  for (@{$_[2]}) {
    ## TODO: owner_rule
  }
  return $self;
} # ____new

## |CSSRule| attributes

## TODO: |css_text|

sub type ($) { Message::DOM::CSSRule::MEDIA_RULE }

## |CSSMediaRule| attributes

sub css_rules ($) {
  require Message::DOM::CSSRuleList;
  return bless \\($_[0]), 'Message::DOM::CSSRuleList';
} # css_rules

sub media ($) {
  return ${$_[0]}->{media};
} # media

package Message::DOM::CSSFontFaceRule;
push our @ISA, 'Message::DOM::CSSRule', 'Message::IF::CSSFontFaceRule';

sub ____new ($$) {
  my $self = bless \{style => $_[1]}, $_[0];
} # ____new

## |CSSRule| attributes

## TODO: |css_text|

sub type ($) { Message::DOM::CSSRule::FONT_FACE_RULE }

## |CSSFontFaceRule| attribute

sub style ($) {
  return ${$_[0]}->{style};
} # style

package Message::DOM::CSSPageRule;
push our @ISA, 'Message::DOM::CSSRule', 'Message::IF::CSSPageRule';

sub ____new ($$$) {
  my $self = bless \{_selector => $_[1], style => $_[2]}, $_[0];
  ## TODO: style -> owner
  return $self;
} # ____new

## |CSSRule| attributes

## TODO: |css_text|

sub type ($) { Message::DOM::CSSRule::PAGE_RULE }

## |CSSPageRule| attributes

## TODO: |selector_text|

sub style ($) {
  return ${$_[0]}->{style};
} # style

package Message::DOM::CSSNamespaceRule;
push our @ISA, 'Message::DOM::CSSRule', 'Message::IF::CSSNamespaceRule';

sub ____new ($$$) {
  return bless \{namespace_uri => $_[2], prefix => $_[1]}, $_[0];
} # ___new

## |CSSRule| attributes

## TODO: |css_text|

sub type ($) { Message::DOM::CSSRule::NAMESPACE_RULE }

## |CSSNamespaceRule| attributes

sub namespace_uri ($) {
  return ${$_[0]}->{namespace_uri};
} # namespace_uri

sub prefix ($) {
  return ${$_[0]}->{prefix};
} # prefix

package Message::IF::CSSRule;
package Message::IF::CSSStyleRule;
package Message::IF::CSSCharsetRule;
package Message::IF::CSSImportRule;
package Message::IF::CSSMediaRule;
package Message::IF::CSSFontFaceRule;
package Message::IF::CSSPageRule;

1;
## $Date:$
1	wakaba	1.1	package Message::DOM::CSSRule;
2			use strict;
3			our $VERSION=do{my @r=(q$Revision: 1.12 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
4			push our @ISA, 'Message::IF::CSSRule';
5
6			## \|CSSRule\| constants
7
8			sub STYLE_RULE () { 1 }
9			sub CHARSET_RULE () { 2 }
10			sub IMPORT_RULE () { 3 }
11			sub MEDIA_RULE () { 4 }
12			sub FONT_FACE_RULE () { 5 }
13			sub PAGE_RULE () { 6 }
14			sub NAMESPACE_RULE () { 7 }
15
16			sub AUTOLOAD {
17			my $method_name = our $AUTOLOAD;
18			$method_name =~ s/.*:://;
19			return if $method_name eq 'DESTROY';
20
21			if ({
22			## Read-only attributes (trivial accessors)
23			parent_rule => 1,
24			parent_style_sheet => 1,
25			}->{$method_name}) {
26			no strict 'refs';
27			eval qq{
28			sub $method_name (\$) {
29			return \${\$_[0]}->{$method_name};
30			}
31			};
32			goto &{ $AUTOLOAD };
33			} else {
34			require Carp;
35			Carp::croak (qq<Can't locate method "$AUTOLOAD">);
36			}
37			} # AUTOLOAD
38
39			## \|CSSRule\| attributes
40
41			sub css_text ($) {
42			die "$0: ".(ref $self)."->css_text: Not implemented";
43			} # css_text
44
45			sub parent_rule ($);
46
47			sub parent_style_sheet ($);
48
49			sub type ($) {
50			die "$0: ".(ref $self)."->type: Not implemented";
51			} # type
52
53			package Message::DOM::CSSStyleRule;
54			push our @ISA, 'Message::DOM::CSSRule', 'Message::IF::CSSStyleRule';
55
56			sub ____new ($$$) {
57			my $self = bless \{_selector => $_[1], style => $_[2]}, $_[0];
58			## TODO: style -> owner
59			return $self;
60			} # ____new
61
62			## \|CSSRule\| attributes
63
64			## TODO: \|css_text\|
65
66			sub type ($) { Message::DOM::CSSRule::STYLE_RULE }
67
68			## \|CSSStyleRule\| attributes
69
70			## TODO: \|selector_text\|
71
72			sub style ($) {
73			return ${$_[0]}->{style};
74			} # style
75
76			package Message::DOM::CSSCharsetRule;
77			push our @ISA, 'Message::DOM::CSSRule', 'Message::IF::CSSCharsetRule';
78
79			sub ____new ($$) {
80			return bless \{encoding => $_[1]}, $_[0];
81			} # ____new
82
83			## \|CSSRule\| attributes
84
85			## TODO: \|css_text\|
86
87			sub type ($) { Message::DOM::CSSRule::CHARSET_RULE }
88
89			## \|CSSCharsetRule\| attribute
90
91			sub encoding ($) {
92			return ${$_[0]}->{encoding};
93			} # encoding
94
95			package Message::DOM::CSSImportRule;
96			push our @ISA, 'Message::DOM::CSSRule', 'Message::IF::CSSImportRule';
97
98			sub ____new ($$$$) {
99			my $self = bless \{href => $_[1], media => $_[2], style_sheet => $_[3]}, $_[0];
100			## TODO: $_[3] owner_style_sheet
101			return $self;
102			} # ____new
103
104			## \|CSSRule\| attributes
105
106			## TODO: \|css_text\|
107
108			sub type ($) { Message::DOM::CSSRule::IMPORT_RULE }
109
110			## \|CSSImportRule\| attributes
111
112			sub href ($) {
113			return ${$_[0]}->{href};
114			} # href
115
116			sub media ($) {
117			return ${$_[0]}->{media};
118			} # media
119
120			sub style_sheet ($) {
121			return ${$_[0]}->{style_sheet};
122			} # style_sheet
123
124			package Message::DOM::CSSMediaRule;
125			push our @ISA, 'Message::DOM::CSSRule', 'Message::IF::CSSMediaRule';
126
127			sub ____new ($$$) {
128			my $self = bless \{media => $_[1], css_rules => $_[2]}, $_[0];
129			for (@{$_[2]}) {
130			## TODO: owner_rule
131			}
132			return $self;
133			} # ____new
134
135			## \|CSSRule\| attributes
136
137			## TODO: \|css_text\|
138
139			sub type ($) { Message::DOM::CSSRule::MEDIA_RULE }
140
141			## \|CSSMediaRule\| attributes
142
143			sub css_rules ($) {
144			require Message::DOM::CSSRuleList;
145			return bless \\($_[0]), 'Message::DOM::CSSRuleList';
146			} # css_rules
147
148			sub media ($) {
149			return ${$_[0]}->{media};
150			} # media
151
152			package Message::DOM::CSSFontFaceRule;
153			push our @ISA, 'Message::DOM::CSSRule', 'Message::IF::CSSFontFaceRule';
154
155			sub ____new ($$) {
156			my $self = bless \{style => $_[1]}, $_[0];
157			} # ____new
158
159			## \|CSSRule\| attributes
160
161			## TODO: \|css_text\|
162
163			sub type ($) { Message::DOM::CSSRule::FONT_FACE_RULE }
164
165			## \|CSSFontFaceRule\| attribute
166
167			sub style ($) {
168			return ${$_[0]}->{style};
169			} # style
170
171			package Message::DOM::CSSPageRule;
172			push our @ISA, 'Message::DOM::CSSRule', 'Message::IF::CSSPageRule';
173
174			sub ____new ($$$) {
175			my $self = bless \{_selector => $_[1], style => $_[2]}, $_[0];
176			## TODO: style -> owner
177			return $self;
178			} # ____new
179
180			## \|CSSRule\| attributes
181
182			## TODO: \|css_text\|
183
184			sub type ($) { Message::DOM::CSSRule::PAGE_RULE }
185
186			## \|CSSPageRule\| attributes
187
188			## TODO: \|selector_text\|
189
190			sub style ($) {
191			return ${$_[0]}->{style};
192			} # style
193
194			package Message::DOM::CSSNamespaceRule;
195			push our @ISA, 'Message::DOM::CSSRule', 'Message::IF::CSSNamespaceRule';
196
197			sub ____new ($$$) {
198			return bless \{namespace_uri => $_[2], prefix => $_[1]}, $_[0];
199			} # ___new
200
201			## \|CSSRule\| attributes
202
203			## TODO: \|css_text\|
204
205			sub type ($) { Message::DOM::CSSRule::NAMESPACE_RULE }
206
207			## \|CSSNamespaceRule\| attributes
208
209			sub namespace_uri ($) {
210			return ${$_[0]}->{namespace_uri};
211			} # namespace_uri
212
213			sub prefix ($) {
214			return ${$_[0]}->{prefix};
215			} # prefix
216
217			package Message::IF::CSSRule;
218			package Message::IF::CSSStyleRule;
219			package Message::IF::CSSCharsetRule;
220			package Message::IF::CSSImportRule;
221			package Message::IF::CSSMediaRule;
222			package Message::IF::CSSFontFaceRule;
223			package Message::IF::CSSPageRule;
224
225			1;
226			## $Date:$