view release on metacpan or  search on metacpan

bin/sassp  view on Meta::CPAN

            if( $valid ) {
                print "Building css files...";
                update( "$in:$out" );
                print "done.\n";
            }
        });
    }
}

sub update {
    my ($in, $out) = @_;
    ($in, $out) = _split_dir( $in ) unless $out;
    for( glob "$in*.scss" ) {
        single( $_, ($out . file( $_ )->basename) =~ s/\.scss$/\.css/r );
    }
}

sub _split_dir {
    my ($dir) = @_;
    my @parts = split /:/, $dir;