Parent Directory
| 
Revision Log
++ manakai/lib/Message/DOM/ChangeLog 8 Feb 2008 15:08:01 -0000 2008-02-08 Wakaba <wakaba@suika.fam.cx> * CSSRule.pm (@media, @import ____new): Bless media object with the appropriate class. (@media css_text): Getter implemented. * MediaList.pm (media_text): Getter implemented.
| 1 | wakaba | 1.1 | package Message::DOM::MediaList; |
| 2 | use strict; | ||
| 3 | wakaba | 1.2 | our $VERSION=do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
| 4 | wakaba | 1.1 | push our @ISA, 'Message::IF::MediaList'; |
| 5 | |||
| 6 | sub ____new { | ||
| 7 | return bless \[], $_[0]; | ||
| 8 | } # ____new | ||
| 9 | |||
| 10 | use overload | ||
| 11 | '""' => 'media_text', fallback => 1; | ||
| 12 | |||
| 13 | sub media_text ($;$) { | ||
| 14 | wakaba | 1.2 | ## TODO: implement setter! |
| 15 | require Whatpm::CSS::MediaQuerySerializer; | ||
| 16 | return Whatpm::CSS::MediaQuerySerializer->serialize_media_query (${$_[0]}); | ||
| 17 | wakaba | 1.1 | } # media_text |
| 18 | |||
| 19 | ## TODO: Implement! | ||
| 20 | |||
| 21 | package Message::IF::MediaList; | ||
| 22 | |||
| 23 | 1; | ||
| 24 | wakaba | 1.2 | ## $Date: 2007/12/22 06:57:46 $ |
| 25 | wakaba | 1.1 |
| [email protected] | ViewVC Help |
| Powered by ViewVC 1.1.24 |