Add simple caching to the cssprepare command line processor.

norm · Aug 3, 2010 · 2f2e89c · 2f2e89c
1 parent 5bbb4bd
commit 2f2e89c
Showing 1 changed file with 42 additions and 23 deletions.
diff --git a/p5-CSS-Prepare/bin/cssprepare b/p5-CSS-Prepare/bin/cssprepare
@@ -12,7 +12,7 @@ use Time::HiRes     qw( gettimeofday tv_interval );
 my %options      = get_options_or_exit();
 my %prepare_args = get_prepare_arguments( %options );
 my $preparer     = CSS::Prepare->new( %prepare_args );
-my( $output, $total_saving, $total_errors );
+my( $output, $total_saving, $total_errors, %cache );
 
 if ( $options{'server'} ) {
     run_server( @ARGV );
@@ -80,35 +80,54 @@ sub run_server {
 sub process_stylesheet {
     my $stylesheet = shift;
 
-    my $start = [ gettimeofday() ];
-    status( "Processing stylesheet '$stylesheet'" );
+    $cache{ $stylesheet } = { timestamp => 0, }
+        unless defined $cache{ $stylesheet };
+    my $cache = $cache{ $stylesheet };
 
-    my @structure = $preparer->parse_stylesheet( $stylesheet );
+    my $stat = stat $stylesheet;
+    my $timestamp = $stat->mtime;
 
-    my $saving      = 0;    # TODO
-    my $error_count = 0;
-    my $output      = '';
-    foreach my $block ( @structure ) {
-        foreach my $error ( @{$block->{'errors'}} ) {
-            my $selector = join ', ', @{$block->{'selectors'}};
-            my( $level, $text ) = each %$error;
-
-            status( "  [${level}] '${selector}' - ${text}" );
-            $error_count++;
-        }
+    if ( $timestamp == $cache->{'timestamp'} ) {
+        status( "Using cached values for '$stylesheet'" );
     }
-
-    if ( !defined $options{'warnings-only'} ) {
-        @structure = $preparer->optimise( @structure )
-            if defined $options{'optimise'};
+    else {
+        my $start = [ gettimeofday() ];
+        status( "Processing stylesheet '$stylesheet'" );
+
+        my @structure = $preparer->parse_stylesheet( $stylesheet );
 
-        $output = $preparer->output_as_string( @structure );
+        $cache->{'saving'}      = 0;    # TODO
+        $cache->{'error_count'} = 0;
+        $cache->{'output'}      = '';
+        $cache->{'timestamp'}   = $timestamp;
 
-        my $interval = tv_interval( $start );
-        status( "\r  Time taken ${interval} seconds" );
+        foreach my $block ( @structure ) {
+            foreach my $error ( @{$block->{'errors'}} ) {
+                my $selector = join ', ', @{$block->{'selectors'}};
+                my( $level, $text ) = each %$error;
+
+                status( "  [${level}] '${selector}' - ${text}" );
+                $cache->{'error_count'}++;
+            }
+        }
+
+        if ( !defined $options{'warnings-only'} ) {
+            @structure = $preparer->optimise( @structure )
+                if defined $options{'optimise'};
+
+            $cache->{'output'}
+                = $preparer->output_as_string( @structure );
+
+            my $interval = tv_interval( $start );
+            status( "\r  Time taken ${interval} seconds" );
+        }
     }
 
-    return ( $output, $saving, $error_count );
+    return (
+        $cache->{'output'},
+        $cache->{'saving'},
+        $cache->{'error_count'},
+    );
 }
 sub output_stylesheet_to_directory {
     my $output = shift;