Message/DOM/CSSStyleSheet.pm

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

sub new ($) {
  return bless \{css_rules => []}, shift;
} # new

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

  if ({
    ## Read-only attributes (trivial accessors)
    href => 1,
    owner_node => 1,
    owner_rule => 1,
    parent_style_sheet => 1,
    type => 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

## |StyleSheet| attributes

sub disabled ($;$) {
  if (@_ > 1) {
    if ($_[1]) {
      ${$_[0]}->{disabled} = 1;
    } else {
      delete ${$_[0]}->{disabled};
    }
  }
  return ${$_[0]}->{disabled};
} # disabled

sub href ($);

## TODO: media

sub owner_node ($);

sub parent_style_sheet ($);

sub title ($;$) {
  if (@_ > 1) {
    if (defined $_[1]) {
      ${$_[0]}->{title} = ''.$_[1];
    } else {
      delete ${$_[0]}->{title};
    }
  }
  return ${$_[0]}->{title};
} # title

sub type ($);

## |CSSStyleSheet| attributes

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

sub owner_rule ($);

## |CSSStyleSheet| methods

## TODO: delete_rule

## TODO: insert_rule

package Message::IF::StyleSheet;
package Message::IF::CSSStyleSheet;

1;
## $Date:$
1	wakaba	1.1	package Message::DOM::CSSStyleSheet;
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::CSSStyleSheet';
5
6			sub new ($) {
7			return bless \{css_rules => []}, shift;
8			} # new
9
10			sub AUTOLOAD {
11			my $method_name = our $AUTOLOAD;
12			$method_name =~ s/.*:://;
13			return if $method_name eq 'DESTROY';
14
15			if ({
16			## Read-only attributes (trivial accessors)
17			href => 1,
18			owner_node => 1,
19			owner_rule => 1,
20			parent_style_sheet => 1,
21			type => 1,
22			}->{$method_name}) {
23			no strict 'refs';
24			eval qq{
25			sub $method_name (\$) {
26			return \${\$_[0]}->{$method_name};
27			}
28			};
29			goto &{ $AUTOLOAD };
30			} else {
31			require Carp;
32			Carp::croak (qq<Can't locate method "$AUTOLOAD">);
33			}
34			} # AUTOLOAD
35
36			## \|StyleSheet\| attributes
37
38			sub disabled ($;$) {
39			if (@_ > 1) {
40			if ($_[1]) {
41			${$_[0]}->{disabled} = 1;
42			} else {
43			delete ${$_[0]}->{disabled};
44			}
45			}
46			return ${$_[0]}->{disabled};
47			} # disabled
48
49			sub href ($);
50
51			## TODO: media
52
53			sub owner_node ($);
54
55			sub parent_style_sheet ($);
56
57			sub title ($;$) {
58			if (@_ > 1) {
59			if (defined $_[1]) {
60			${$_[0]}->{title} = ''.$_[1];
61			} else {
62			delete ${$_[0]}->{title};
63			}
64			}
65			return ${$_[0]}->{title};
66			} # title
67
68			sub type ($);
69
70			## \|CSSStyleSheet\| attributes
71
72			sub css_rules ($) {
73			require Message::DOM::CSSRuleList;
74			return bless \\($_[0]), 'Message::DOM::CSSRuleList';
75			} # css_rules
76
77			sub owner_rule ($);
78
79			## \|CSSStyleSheet\| methods
80
81			## TODO: delete_rule
82
83			## TODO: insert_rule
84
85			package Message::IF::StyleSheet;
86			package Message::IF::CSSStyleSheet;
87
88			1;
89			## $Date:$