From 3792275e49f791d787c281130273a49489dfd699 Mon Sep 17 00:00:00 2001
From: Dinis Lage <dinislage@senolage.com>
Date: Mon, 6 Apr 2015 01:07:10 +0100
Subject: [PATCH] Add Log4perl and minification of JS and CSS files.

---
 Makefile.PL                   |  1 +
 lib/File/Assets/Precompile.pm | 74 +++++++++++++++++++++++++++++++----
 t/01_basic.t                  |  4 +-
 t/common.pl                   |  8 ++++
 4 files changed, 78 insertions(+), 9 deletions(-)

diff --git a/Makefile.PL b/Makefile.PL
index 1d2b373..620529a 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -17,6 +17,7 @@ WriteMakefile(
         'JavaScript::Minifier::XS' => 0,
         'Path::Class'              => 0,
         'CSS::Minifier::XS'        => 0,
+        'Log::Log4perl'            => 0,
 
         #'ABC'              => 1.6,
         #'Foo::Bar::Module' => 5.0401,
diff --git a/lib/File/Assets/Precompile.pm b/lib/File/Assets/Precompile.pm
index 53a02ba..8f03b5a 100644
--- a/lib/File/Assets/Precompile.pm
+++ b/lib/File/Assets/Precompile.pm
@@ -1,12 +1,15 @@
 package File::Assets::Precompile;
 {
-    $File::Assets::Precompile::VERSION = '0.01';
+    $File::Assets::Precompile::VERSION = '0.0.1';
 }
 
 use 5.006;
 use strict;
 use warnings;
 
+use Log::Log4perl;
+my $l = Log::Log4perl::get_logger();
+
 =head1 NAME
 
 File::Assets::Precompile - The great new File::Assets::Precompile!
@@ -25,7 +28,14 @@ Perhaps a little code snippet.
 
     use File::Assets::Precompile;
 
-    my $foo = File::Assets::Precompile->new();
+    my $foo = File::Assets::Precompile->new(
+        'base_path'   => "$FindBin::Bin/assets/",
+        'output_path' => "$FindBin::Bin/public/assets/",
+
+        #'base_url'    => 'https://cdn.example.com/public/assets/',
+        'base_url'         => '/public/assets/',
+        'development_mode' => 1,
+    );
     ...
 
 =head1 EXPORT
@@ -95,6 +105,12 @@ has 'versionized_extensions' => (
     'lazy_build' => 1,
 );
 
+has 'minify' => (
+    'is'      => 'ro',
+    'isa'     => 'Bool',
+    'default' => 0,
+);
+
 sub _build_versionized_extensions {
     my $self = shift;
     return {
@@ -194,7 +210,8 @@ sub copy_files {
     my $output_path = Path::Class::Dir->new( $self->output_path );
     $output_path->rmtree();
 
-    for my $value ( values %{ $self->asset_cache } ) {
+    $l->info( 'Copying ', scalar( keys %{$asset_cache} ), ' files', );
+    for my $value ( values %{$asset_cache} ) {
         $self->_process_file($value);
     }
     return;
@@ -228,11 +245,52 @@ sub _process_file {
         $dest_dir->mkpath;
     }
 
-    $file->copy_to($dest_file);
-
     $value->{'dest_path'}     = $dest_file->stringify;
     $value->{'dest_rel_path'} = $target_rel_path;
     $value->{'mtime'}         = $mtime;
+    $value->{'suffix'}        = $suffix;
+
+    my $minified = $self->_try_minify(
+        'asset'            => $value,
+        'original_file'    => $file,
+        'destination_file' => $dest_file,
+    );
+
+    # If no minification was possible just copy the original
+    if ( !$minified ) {
+        $file->copy_to($dest_file);
+    }
+
+    return;
+}
+
+sub _try_minify {
+    my $self = shift;
+    my %args = @_;
+
+    my $asset            = $args{'asset'};
+    my $original_file    = $args{'original_file'};
+    my $destination_file = $args{'destination_file'};
+
+    if ( !$self->minify ) {
+        return;
+    }
+
+    if ( $asset->{'suffix'} eq '.css' ) {
+        my $original = $original_file->slurp();
+        my $minified = CSS::Minifier::XS::minify($original);
+        $destination_file->spew($minified);
+        return 1;
+    }
+
+    if ( $asset->{'suffix'} eq '.js' ) {
+        my $original = $original_file->slurp();
+        my $minified = JavaScript::Minifier::XS::minify($original);
+        $destination_file->spew($minified);
+        return 1;
+    }
+
+    return;
 }
 
 sub _check_refresh_file {
@@ -252,10 +310,10 @@ sub _get_asset {
     my $mtime = _file_mtime( $asset->{'full_path'} );
     if ( !$asset or ( $mtime != $asset->{'mtime'} ) ) {
 
-        # Let's check if it's a new asset
+        # Treat as a new file
         my $full_path =
           Path::Class::File->new( $self->base_path, $asset_requested, );
-        $asset = $self->_metadata_from_file( $full_path );
+        $asset = $self->_metadata_from_file($full_path);
         if ( !$asset ) {
 
             # File not found
@@ -280,7 +338,7 @@ sub asset_url {
         return $asset_requested;
     }
 
-    my $uri     = $self->base_url . $asset->{'dest_rel_path'};
+    my $uri = $self->base_url . $asset->{'dest_rel_path'};
     return $uri;
 }
 
diff --git a/t/01_basic.t b/t/01_basic.t
index 8c2fc01..1fe9bf4 100644
--- a/t/01_basic.t
+++ b/t/01_basic.t
@@ -12,8 +12,10 @@ require "$FindBin::Bin/common.pl";
 my $fap = File::Assets::Precompile->new(
     'base_path'   => "$FindBin::Bin/assets/",
     'output_path' => "$FindBin::Bin/public/assets/",
+    'minify'      => 1,
+
     #'base_url'    => 'https://cdn.example.com/public/assets/',
-    'base_url'    => '/public/assets/',
+    'base_url'         => '/public/assets/',
     'development_mode' => 1,
 );
 ok( $fap, 'Got object' );
diff --git a/t/common.pl b/t/common.pl
index 9a8db90..b8b92cf 100644
--- a/t/common.pl
+++ b/t/common.pl
@@ -4,4 +4,12 @@ use strict;
 use warnings;
 
 use FindBin;
+use Log::Log4perl qw(:easy);
+Log::Log4perl->easy_init(
+    {
+        'level'  => $TRACE,
+        'layout' => "%r %p %M-%L %m%n",
+    },
+);
+
 1;