Add option cache_dir

lib/App/txtnix.pm

@@ -13,10 +13,11 @@ use Mojo::ByteStream 'b';
 
 our $VERSION = '0.01';
 
-has 'ua'  => sub { shift->_build_ua };
-has cache => sub { App::txtnix::Cache->new() };
+has 'ua' => sub { shift->_build_ua };
+has cache => sub { App::txtnix::Cache->new( cache_dir => shift->cache_dir ) };
 
 has twtfile           => sub { path('~/twtxt') };
+has twtfile           => sub { path('~/.cache/txtnix') };
 has pager             => sub { 1 };
 has sorting           => sub { "descending" };
 has timeout           => sub { 5 };
@@ -32,7 +33,7 @@ has nick              => sub { $ENV{USER} };
 has since             => sub { 0 };
 has until             => sub { time };
 
-has [qw( twturl pre_tweet_hook post_tweet_hook config force )];
+has [qw( twturl pre_tweet_hook post_tweet_hook config force cache_dir )];
 
 sub new {
     my ( $class, @args ) = @_;
@@ -62,7 +63,10 @@ sub new {
             $args->{following} = $config->{following};
         }
     }
-    $args->{twtfile} = path( $args->{twtfile} ) if exists $args->{twtfile};
+    for my $path (qw(twtfile cache_dir)) {
+        $args->{$path} = path( $args->{$path} ) if exists $args->{$path};
+    }
+
     return bless {%$args}, ref $class || $class;
 }
 

lib/App/txtnix/Cache.pm

@@ -4,11 +4,15 @@ use Mojo::ByteStream 'b';
 use Path::Tiny;
 use Mojo::JSON qw(encode_json decode_json);
 
-has cache_dir => sub {
-    my $dir = path('~/.cache/txtnix/');
-    $dir->mkpath if not $dir->exists;
-    return $dir;
-};
+has cache_dir => sub { path('~/.cache/txtnix/') };
+
+sub new {
+    my $class = shift;
+    my $self = bless @_ ? @_ > 1 ? {@_} : { %{ $_[0] } } : {},
+      ref $class || $class;
+    $self->cache_dir->mkpath if not $self->cache_dir->exists;
+    return $self;
+}
 
 sub get {
     my ( $self, $key ) = @_;

lib/App/txtnix/Cmd.pm

@@ -47,13 +47,18 @@ opt cache => (
     isa     => 'Bool',
     comment => 'Cache remote twtxt files locally.',
 );
+opt cache_dir => (
+    isa     => 'Str',
+    comment => 'Directory for saving twtxt files locally.',
+);
 opt timeout => (
     isa     => 'Int',
     comment => 'Maximum time requests are allowed to take.',
 );
 opt pager => (
     isa     => 'Bool',
     comment => 'Use a pager to display content.',
+    default => 1,
 );
 opt time_format => (
     isa     => 'Str',
@@ -94,6 +99,10 @@ opt cache => (
     isa     => 'Bool',
     comment => 'Cache remote twtxt files locally.',
 );
+opt cache_dir => (
+    isa     => 'Str',
+    comment => 'Directory for saving twtxt files locally.',
+);
 opt timeout => (
     isa     => 'Int',
     comment => 'Maximum time requests are allowed to take.',