From 47fb4fc02407def9d9b19a2746983b8c65937e3f Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Mon, 24 Jun 2019 12:04:15 +0200
Subject: TgLib.{Cache,Env}

---
 lib/TgLib/Cache.pm | 34 ++++++++++++++++++++++++++++++++++
 lib/TgLib/Env.pm   | 10 ++++++++++
 2 files changed, 44 insertions(+)
 create mode 100644 lib/TgLib/Cache.pm
 create mode 100644 lib/TgLib/Env.pm

(limited to 'lib/TgLib')

diff --git a/lib/TgLib/Cache.pm b/lib/TgLib/Cache.pm
new file mode 100644
index 0000000..d3723b7
--- /dev/null
+++ b/lib/TgLib/Cache.pm
@@ -0,0 +1,34 @@
+package TgLib::Cache;
+
+use Storable qw<store retrieve>;
+use File::Basename qw<dirname>;
+
+use TgLib::Env qw<$CACHE_HOME>;
+
+use parent qw<Exporter>;
+our @EXPORT = qw<new>;
+
+my $CACHE_FILE = "$CACHE_HOME/tgutils/cache";
+
+sub new {
+    my $class = shift;
+
+    # Fetch cache
+    return bless((-f $CACHE_FILE
+                  ? retrieve($CACHE_FILE)
+                  : {'version' => $main::VERSION}), $class);
+}
+
+sub offset {
+    my $cache = shift;
+    $cache->{'offset'} = shift if @_;
+    return $cache->{'offset'};
+}
+
+sub save {
+    my $cache = shift;
+    mkdir dirname $CACHE_FILE;
+    store($cache, $CACHE_FILE);
+}
+
+1;
diff --git a/lib/TgLib/Env.pm b/lib/TgLib/Env.pm
new file mode 100644
index 0000000..b1e94aa
--- /dev/null
+++ b/lib/TgLib/Env.pm
@@ -0,0 +1,10 @@
+package TgLib::Env;
+
+use parent qw<Exporter>;
+our @EXPORT = qw<$HOME $CONFIG_HOME $CACHE_HOME>;
+
+our $HOME = $ENV{'HOME'};
+our $CONFIG_HOME = $ENV{'XDG_CONFIG_HOME'} || "$HOME/.config";
+our $CACHE_HOME = $ENV{'XDG_CACHE_HOME'} || "$HOME/.cache";
+
+1;
-- 
cgit v1.2.3