File Coverage

blib/lib/CSS/LESS.pm

Criterion	Covered	Total	%
statement	86	109	78.9
branch	24	38	63.1
condition	15	24	62.5
subroutine	11	12	91.6
pod	4	4	100.0
total	140	187	74.8

package CSS::LESS;

use warnings;
use strict;
use Carp;
use File::Temp qw//;
use IPC::Open3;

use version; our $VERSION = qv('0.0.3');

our @LESSC_PARAMS = qw/ include_paths compress strict_imports
 relative_urls rootpath line_numbers version /;
our %DEFAULT_PARAMS = (
	# Parameters for module
	dont_die		 	=> 0,
	dry_run		 	=> 0,
	path_lessc_bin	=> 'lessc',
	path_tmp			=> undef,
	# Parameters for lessc
	include_paths	=> undef,	# Array
	compress		=> 'false',	# Bool
	strict_imports	=> 'false',	# Bool
	relative_urls	=> 'false',	# Bool
	rootpath		=> undef,	# String (URL)
	line_numbers		=> undef,	# String ('comments', 'mediaquery', 'both', or undef)
);

sub new {
	my ($class, %params) = @_;
	my $s = bless({}, $class);

	# Proceess for parameters of constructor
	foreach ( keys %DEFAULT_PARAMS ) {
		if(defined $params{$_}){
			$s->{$_} = $params{$_};
		} else {
			$s->{$_} = $DEFAULT_PARAMS{$_};
		}
	}

	$s->{last_error} = undef;
	$s->{is_lessc_installed} = undef;

	return $s;
}

# Ccompile a less style-sheet (return: Compiled CSS style-sheet)
sub compile {
	my ($s, $buf, %params) = @_;

	unless (defined $s->{is_lessc_installed} ) {
		if($s->is_lessc_installed() == 0 && $s->{dont_die} == 0) {
			die('lessc is not installed');
		}
	}

	unless (%params) {
		%params = ();
	}

	# Process for parameters (Set property in instance)
	foreach ( keys %DEFAULT_PARAMS ) {
		if(!defined $params{$_} && defined $s->{$_}){ # Not defined on params AND defined on member of $self
			$params{$_} = $s->{$_};
		}
	}
	$params{content} = $buf;

	# Compile less to css
	return $s->_exec_lessc(%params);
}

# Get last error
sub last_error {
	my $s = shift;
	return $s->{last_error};
}

# Check for lessc has installed
sub is_lessc_installed {
	my $s = shift;

	if($s->{dry_run}){ # Dry run
		return 1;
	}

	my $lessc_ver;
	eval {
		$lessc_ver = $s->_exec_lessc(version => undef);
	}; if($@) { return 0; }
	if(defined $lessc_ver && $lessc_ver =~ /^lessc .*(LESS Compiler).*/i) {
		$s->{is_lessc_installed} = 1;
		return 1;
	}
	return 0;
}

# Execute a command with lessc
sub _exec_lessc {
	my ($s, %options) = @_;

	# Prepare a command
	my ($cmd_args_ref, $path_tmpfile) = $s->_generate_cmd_lessc(%options);
	my @cmd_args = @{$cmd_args_ref};

	# Execute a command

	if($s->{dry_run}){ # Dry run
		$" = ' ';
		return "@cmd_args"; # return generated command
	}

	my ($fh_in, $fh_out, $fh_err);
	#open $fh, '-|', @cmd_args, '2>&1' or die('Can not open a pipe to:'. $s->{path_lessc_bin});
	my $pid = IPC::Open3::open3($fh_in, $fh_out, 0, @cmd_args);
	my ($ret);
	while (my $l = <$fh_out>) {
		$ret .= $l;
	}
	waitpid($pid, 0);

	# Error process
	if($? != 0){
		$s->{last_error} = $ret;
		unless($s->{dont_die}){
			if(defined $ret){
				die ('Compile error: '. $ret);
			} else {
				die ('Compile error: Unknown');
			}
		}
	}
	# Delete tmp file
	if(defined $path_tmpfile){
		unlink($path_tmpfile);
	}

	return $ret;
}

# Generate a command for lessc (Return: \@args, $path of temp-file)
sub _generate_cmd_lessc {
	my ($s, %options) = @_;
	my @cmd_args = ();

	# Execute path
	push(@cmd_args, $s->{path_lessc_bin});

	# Process for content
	my $path_tmpfile;
	if(defined $options{content}) {
		my $content = $options{content};
		delete $options{content};

		my $tempfh;
		($tempfh, $path_tmpfile) = File::Temp::tempfile(DIR => $s->{path_tmp});
		print $tempfh $content;
		close($tempfh);

		push(@cmd_args, $path_tmpfile);
	}

	# Process for include paths
	if(defined $options{include_paths}){
		if(@{$options{include_paths}} <= 1){
			push(@cmd_args, '--include-path='.$options{include_paths}->[0]);
		} else {
			my $paths = '--include-path=';
			{
				local $" = ':';
				$paths .= "@{$options{include_paths}}";
			}
			$paths .= '';
			push(@cmd_args, $paths);
		}
		delete $options{include_paths};
	}

	# Process for other parameters
	foreach my $key (@LESSC_PARAMS) {
		if(defined $options{$key} && (!defined $DEFAULT_PARAMS{$key} || $DEFAULT_PARAMS{$key} ne 'false')) {
			my $arg_name = $key;
			$arg_name =~ s/\_/\-/g;
			push(@cmd_args, "--".$arg_name."=".$options{$key});
		} elsif(defined $options{$key} && ($options{$key} eq 'false' || $options{$key} == '0') && $DEFAULT_PARAMS{$key} eq 'false') {
			# Do not anything
		} elsif(exists $options{$key}){
			my $arg_name = $key;
			$arg_name =~ s/\_/\-/g;
			push(@cmd_args, "--".$arg_name);
		}
	}

	push(@cmd_args, '--verbose');
	push(@cmd_args, '--no-color');
	# Return a args (with command path) and a path of temp-file
	return (\@cmd_args, $path_tmpfile);
}

1;
__END__