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 | 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 |