From 20e07437f413e338f2b54447133e1533f5262c13 Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xinu.at>
Date: Mon, 17 Dec 2018 16:20:20 +0100
Subject: WIP Add cache

Signed-off-by: Florian Pritz <bluewind@xinu.at>
---
 lib/App/ArchLinux/PackagerTools/Cache.pm | 77 ++++++++++++++++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 lib/App/ArchLinux/PackagerTools/Cache.pm

(limited to 'lib/App/ArchLinux/PackagerTools/Cache.pm')

diff --git a/lib/App/ArchLinux/PackagerTools/Cache.pm b/lib/App/ArchLinux/PackagerTools/Cache.pm
new file mode 100644
index 0000000..b8415ad
--- /dev/null
+++ b/lib/App/ArchLinux/PackagerTools/Cache.pm
@@ -0,0 +1,77 @@
+package App::ArchLinux::PackagerTools::Cache;
+use strictures;
+
+use autodie;
+use Function::Parameters;
+use Log::Any qw($log);
+use CHI;
+
+use App::ArchLinux::PackagerTools::Config;
+
+=head1 NAME
+
+App::ArchLinux::PackagerTools::Cache - Caching functions
+
+=head1 SYNOPSIS
+
+use App::ArchLinux::PackagerTools::Cache;
+
+
+=head1 DESCRIPTION
+
+# longer description...
+
+=head1 METHODS
+
+=head2 new
+
+ my $cache = App::ArchLinux::PackagerTools::Cache->new();
+
+Returns a new instance.
+
+=cut
+
+method new($class: $deps = {}) {
+	$deps->{config} //= App::ArchLinux::PackagerTools::Config->new({$deps->%{context}});
+	return $class->new_no_defaults($deps);
+}
+
+method new_no_defaults($class: $deps = {}) {
+	return $deps->{context}->{$class} if defined $deps->{context}->{$class};
+
+	my $self = {};
+	bless $self, $class;
+	$self->{deps} = $deps;
+
+	my $config = $deps->{config}->get_config();
+
+	$self->{CHI} = CHI->new(
+		driver => 'File',
+		root_dir => $config->{cache}->{root_dir},
+		cache_size => $config->{cache}->{cache_size},
+	);
+	$deps->{context}->{$class} = $self;
+	return $self;
+}
+
+=head2 Public Methods
+
+=cut
+
+=head3 compute
+
+ my $value = $cache->compute($key, $timeout, $sub);
+
+If a value exists for the cache key $key, it is returned. Otherwise, $sub is
+executed to compute the value and it is stored in the cache with the specified
+timeout.
+
+=cut
+
+method compute($key, $timeout, $sub) {
+	return $self->{CHI}->compute($key, $timeout, $sub);
+}
+
+1;
+
+__END__
-- 
cgit v1.2.3-24-g4f1b