File Coverage

blib/lib/Template/Plugin/Filter/Scss.pm

Criterion	Covered	Total	%
statement	32	34	94.1
branch	8	16	50.0
condition	1	3	33.3
subroutine	8	8	100.0
pod	0	2	0.0
total	49	63	77.7

package Template::Plugin::Filter::Scss;
use 5.008001;
use strict;
use warnings;

use Template::Plugin::Filter;
use base qw( Template::Plugin::Filter );

use CSS::Sass;

our $VERSION = "0.01";

sub init {
    my ($self) = @_;
    $self->install_filter('scss');
    return $self;
}

sub filter {
    my ($self, $text) = @_;

    my %options = ();
    if ($self->{ _CONFIG } && (ref($self->{ _CONFIG }) eq 'HASH')) {
        if ($self->{ _CONFIG }->{include_paths}) {
            $options{include_paths} = [$self->{ _CONFIG }->{include_paths}];
        }
        elsif ($self->{ _CONFIG }->{include_path}) {
            $options{include_paths} = [$self->{ _CONFIG }->{include_path}];
        }

        if ($self->{ _CONFIG }->{output_style}) {
            $options{output_style} = SASS_STYLE_NESTED     if uc($self->{ _CONFIG }->{output_style}) eq 'NESTED';
            $options{output_style} = SASS_STYLE_COMPACT    if uc($self->{ _CONFIG }->{output_style}) eq 'COMPACT';
            $options{output_style} = SASS_STYLE_EXPANDED   if uc($self->{ _CONFIG }->{output_style}) eq 'EXPANDED';
            $options{output_style} = SASS_STYLE_COMPRESSED if uc($self->{ _CONFIG }->{output_style}) eq 'COMPRESSED';
        }
    }

    my $sass = CSS::Sass->new(%options);

    my ($css, $stats) = $sass->compile($text);
    return $css;
}


1;
__END__