File Coverage

blib/lib/Apache2/Filter/CSS/LESS.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Apache2::Filter::CSS::LESS;

use 5.008;
use strict;

use APR::Table;
use Apache2::Const -compile => qw(OK);
use Apache2::Filter;
use Apache2::Log;
use Apache2::RequestRec;
use Apache2::RequestUtil;

use CSS::LESSp;

our $VERSION = '0.30';

sub handler :method {
    my ($class, $f) = @_;

    my $r = $f->r;

    my $ctx = $f->ctx;
    while ($f->read(my $buffer, 4096)) {
        $ctx .= $buffer;
    }

    unless ($f->seen_eos) {
        $f->ctx($ctx);
        return Apache2::Const::OK;
    }

    if ($ctx) {
        my $css = join '', CSS::LESSp->parse($ctx);

        # fix headers, change content type
        $r->headers_out->unset('Content-Length');
        $r->content_type($r->dir_config('LessContentType') || 'text/css');

        $f->print($css);
    }

    return Apache2::Const::OK;
}

1;

__END__