Parent Directory
| 
Revision Log
++ whatpm/t/ChangeLog 8 Feb 2008 13:37:13 -0000 2008-02-08 Wakaba <wakaba@suika.fam.cx> * CSS-MediaQuery.t, mq-1.dat: New files. ++ whatpm/Whatpm/CSS/ChangeLog 8 Feb 2008 13:37:45 -0000 2008-02-08 Wakaba <wakaba@suika.fam.cx> * MediaQueryParser.pm, MediaQuerySerializer.pm: New Perl modules.
| 1 | wakaba | 1.1 | package Whatpm::CSS::MediaQuerySerializer; |
| 2 | use strict; | ||
| 3 | |||
| 4 | sub serialize_media_query ($$) { | ||
| 5 | my (undef, $mq) = @_; | ||
| 6 | |||
| 7 | return join ', ', map { | ||
| 8 | do { | ||
| 9 | if (@$_ and $_->[0]->[0] eq '#type') { | ||
| 10 | $_->[0]->[1]; | ||
| 11 | } else { | ||
| 12 | 'unknown'; | ||
| 13 | } | ||
| 14 | } | ||
| 15 | } @$mq; | ||
| 16 | } # serialize_media_query | ||
| 17 | |||
| 18 | 1; |
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |