42 |
sub css_text ($;$) { |
sub css_text ($;$) { |
43 |
## TODO: setter |
## TODO: setter |
44 |
|
|
45 |
|
## NOTE: Where and how white space characters are inserted are |
46 |
|
## intentionally changed from those in browsers so that properties are |
47 |
|
## more prettily printed. |
48 |
|
## See <http://suika.fam.cx/gate/2005/sw/cssText> for what browsers do. |
49 |
|
## TODO: Ordering issue. |
50 |
require Whatpm::CSS::Parser; |
require Whatpm::CSS::Parser; |
51 |
my $self = $_[0]; |
my $self = $_[0]; |
52 |
my $r = ''; |
my $r = ''; |
73 |
} |
} |
74 |
} |
} |
75 |
} |
} |
|
## TODO: shorthands |
|
76 |
return $r; |
return $r; |
77 |
} # css_text |
} # css_text |
78 |
|
|
142 |
my $self = shift; |
my $self = shift; |
143 |
require Whatpm::CSS::Parser; |
require Whatpm::CSS::Parser; |
144 |
|
|
145 |
|
## NOTE: Where and how white space characters are inserted are |
146 |
|
## intentionally changed from those in browsers so that properties are |
147 |
|
## more prettily printed. |
148 |
|
## See <http://suika.fam.cx/gate/2005/sw/cssText> for what browsers do. |
149 |
## TODO: ordering |
## TODO: ordering |
150 |
## TODO: any spec? |
## TODO: any spec? |
151 |
my $r = ''; |
my $r = ''; |