File Coverage

blib/lib/Plack/Middleware/File/Sass.pm

Criterion	Covered	Total	%
statement	21	60	35.0
branch	0	18	0.0
condition	0	6	0.0
subroutine	7	12	58.3
pod	2	4	50.0
total	30	100	30.0

package Plack::Middleware::File::Sass;

use strict;
use 5.008_001;
our $VERSION = '0.03';

use parent qw(Plack::Middleware);
use Plack::Util::Accessor qw(sass syntax);
use Plack::Util;
use IPC::Open3 qw(open3);
use Carp ();

my $text_sass;
my %valid = (sass => 1, scss => 1);

sub prepare_app {
    my $self = shift;

    $self->syntax("sass") unless defined $self->syntax;
    $valid{$self->syntax} or Carp::croak("Unsupported syntax: ", $self->syntax);

    my $sass = `sass -v`;
    if ($sass && $sass =~ /Sass 3/) {
        $self->sass(\&sass_command);
    } elsif (eval { require Text::Sass }) {
        $self->sass(\&sass_perl);
    } else {
        Carp::croak("Can't find sass gem nor Text::Sass module");
    }
}

sub sass_command {
    my($syntax, $body) = @_;

    my $pid = open3(my $in, my $out, my $err,
          "sass", "--stdin", ($syntax eq 'scss' ? '--scss' : ()));
    print $in $body;
    close $in;

    my $buf = join '', <$out>;
    waitpid $pid, 0;

    return $buf;
}

sub sass_perl {
    my($syntax, $body) = @_;

    my $method = "${syntax}2css";
    $text_sass ||= Text::Sass->new;
    $text_sass->$method($body);
}

sub call {
    my($self, $env) = @_;

    my $syntax = $self->syntax;

    # Sort of depends on how App::File works
    my $orig_path_info = $env->{PATH_INFO};
    if ($env->{PATH_INFO} =~ s/\.css$/.$syntax/i) {
        my $res = $self->app->($env);

        return $res unless ref $res eq 'ARRAY';

        if ($res->[0] == 200) {
            my $sass; Plack::Util::foreach($res->[2], sub { $sass .= $_[0] });
            my $css = $self->sass->($syntax, $sass);

            my $h = Plack::Util::headers($res->[1]);
            $h->set('Content-Type' => 'text/css');
            $h->set('Content-Length' => length $css);

            $res->[2] = [ $css ];
        } elsif ($res->[0] == 404) {
            $env->{PATH_INFO} = $orig_path_info;
            $res = $self->app->($env);
        }

        return $res;
    }

    return $self->app->($env);
}

1;
__END__