interfaccia minima fatta e testata

git-svn-id: svn://luxion/repos/WebCoso/trunk@270 fcb26f47-9200-0410-b104-b98ab5b095f3

1 files changed, 67 insertions, 0 deletions

diff --git a/lib/File/Cache/Parsed.pm b/lib/File/Cache/Parsed.pm
index 0d0a52c..9e980ef 100644
--- a/lib/File/Cache/Parsed.pm
+++ b/lib/File/Cache/Parsed.pm
@@ -1,5 +1,72 @@
 package File::Cache::Parsed;
 use strict;
 use warnings;
+use List::Util qw(first);
+use List::MoreUtils qw(firstidx);
+use Path::Class;
+
+sub new {
+    my ($class)=@_;
+
+    return bless {
+        parsers=>[],
+        cache=>{},
+    }=>$class;
+}
+
+sub add_parser {
+    my ($self,$rx,$parser)=@_;
+
+    my $old_parser=first {$_->[0] eq $rx} @{$self->{parsers}};
+    if ($old_parser) {
+        $old_parser->[1]=$parser;
+    }
+    else {
+        push @{$self->{parsers}},[$rx,$parser];
+    }
+    return;
+}
+
+sub del_parser {
+    my ($self,$rx)=@_;
+
+    my $i=firstidx {$_->[0] eq $rx} @{$self->{parsers}};
+    return if $i<0;
+
+    splice @{$self->{parsers}},$i,1;
+
+    $self->invalidate($rx);
+
+    return;
+}
+
+sub get {
+    my ($self,$filename)=@_;
+
+    return $self->{cache}{$filename} if exists $self->{cache}{$filename};
+
+    my $contents=file($filename)->slurp;
+
+    my $pp=first {$filename =~ m{$_->[0]}} @{$self->{parsers}};
+    if ($pp) {
+        return $self->{cache}{$filename}=$pp->[1]->($filename,$contents);
+    }
+    else {
+        return $self->{cache}{$filename}=$contents;
+    }
+}
+
+sub invalidate {
+    my ($self,$rx)=@_;
+
+    my $count=0;
+    for my $filename (keys %{$self->{cache}}) {
+        if ($filename =~ m{$rx}) {
+            delete $self->{cache}{$filename};
+            ++$count;
+        }
+    }
+    return $count;
+}
 
 1;