14 FILE: while (my $f = readdir $dh) {
15 next if $f eq "." || $f eq "..";
16 next unless $f =~ /\.css$/;
17 (my $name = $f) =~ s/\.css$//;
21 open my $fh, "<", "$dir/$f";
23 if (m{/\* -\*-css-\*- \*/}) {
25 } elsif (m{/\*\@END\*/}) {
29 } elsif (m{/\*\@ \s* ([^:]+) \s* : \s* ( | \S | \S .* \S) \s* \*/}x) {
30 $s->{$1} = [split /\s*,\s*/, $2];
35 push @$j, { enabled => JSON::true,
45 print encode_json($j), "\n";