CSSを軽量化!CSS::Minifier::XSを使ってみた。

CSS::Minifierってのと、CSS::Minifier::XSってのがあったんですが、XSじゃない方はあんま更新されてないようなのでXSの方で。
ま、XSの方も1年くらい更新されてませんが・・。

#!/usr/bin/perl

use strict;
use warnings;

use Path::Class;
use CSS::Minifier::XS qw(minify);

my $org_file = 'main.css';
my $min_file = 'main.min.css';

my $css = file($org_file)->slurp;
my $min_css = minify($css);

my $op = file($min_file);
my $w = $op->open('w');
$w->print($min_css);
$w->close;

__END__

ファイル読み込んでminifyして保存。
ま、気休めくらいにはなるかな・・?