Cache efa replies by default

1 files changed, 19 insertions, 0 deletions

diff --git a/bin/efa-m b/bin/efa-m
index d788932..eb78069 100755
--- a/bin/efa-m
+++ b/bin/efa-m
@@ -16,6 +16,8 @@ use Travel::Status::DE::EFA;
 my $service = 'VRR';
 my $efa_url;
 my $efa_encoding;
+my $use_cache = 1;
+my $cache;
 my ( $date,        $time, $input_type, $list_lines, $offset, $relative_times );
 my ( $full_routes, $filter_via, $show_jid );
 my ( $timeout,     $developer_mode );
@@ -54,6 +56,7 @@ GetOptions(
 	'u|efa-url=s'                   => \$efa_url,
 	'v|via=s'                       => \$filter_via,
 	'V|track-via=s'                 => \$filter_via,
+	'cache!'                        => \$use_cache,
 	'version'                       => \&show_version,
 	'devmode'                       => \$developer_mode,
 
@@ -67,6 +70,21 @@ if ( @ARGV < 1 or @ARGV > 2 ) {
 	show_help(1);
 }
 
+if ($use_cache) {
+	my $cache_path = ( $ENV{XDG_CACHE_HOME} // "$ENV{HOME}/.cache" ) . '/efa-m';
+	eval {
+		require Cache::File;
+		$cache = Cache::File->new(
+			cache_root      => $cache_path,
+			default_expires => '90 seconds',
+			lock_level      => Cache::File::LOCK_LOCAL(),
+		);
+	};
+	if ($@) {
+		$cache = undef;
+	}
+}
+
 # --line=foo,bar support
 @edata_pre      = split( qr{,}, join( q{,}, @edata_pre ) );
 @grep_lines     = split( qr{,}, join( q{,}, @grep_lines ) );
@@ -130,6 +148,7 @@ sub new_efa {
 	my $res = Travel::Status::DE::EFA->new(
 		service        => $s,
 		efa_url        => $u,
+		cache          => $cache,
 		date           => $date,
 		developer_mode => $developer_mode,
 		efa_encoding   => $efa_encoding,