TgLib.{Cache,Env}

3 files changed, 50 insertions, 0 deletions

diff --git a/lib/TgLib.pm b/lib/TgLib.pm
new file mode 100644
index 0000000..9be77d7
--- /dev/null
+++ b/lib/TgLib.pm
@@ -0,0 +1,6 @@
+package TgLib;
+
+use parent qw<Exporter>;
+our @EXPORT = qw<>;
+
+1;
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;