Add --created-at for tweet

lib/App/txtnix/Cmd/tweet.pm

@@ -7,14 +7,24 @@ use String::ShellQuote qw(shell_quote);
 
 extends 'App::txtnix';
 
-has text => ( is => 'rw' );
+has text       => ( is => 'rw' );
+has created_at => ( is => 'rw' );
 
 sub run {
     my ($self) = @_;
     my $text = $self->text;
     $text = b($text)->decode;
     $text =~ s/\@(\w+)/$self->expand_mention($1)/ge;
-    my $tweet = App::txtnix::Tweet->new( text => $text );
+
+    if ( $self->created_at ) {
+        $self->to_epoch( $self->created_at );
+    }
+    else {
+        $self->created_at(time);
+    }
+
+    my $tweet =
+      App::txtnix::Tweet->new( text => $text, timestamp => $self->created_at );
     my $file = path( $self->twtfile );
     $file->touch unless $file->exists;
 

t/run.t

@@ -7,6 +7,8 @@ use Mojolicious::Lite;
 use Mojo::UserAgent::Server;
 use OptArgs 'class_optargs';
 
+$ENV{TZ} = 'UTC';
+
 my $config  = Path::Tiny->tempfile;
 my $twtfile = Path::Tiny->tempfile;
 
@@ -36,6 +38,10 @@ EOO
 run( 'tweet', 'Hello World' );
 like( $twtfile->slurp_utf8, qr/[\d:TZ-]+\tHello World/ );
 
+$twtfile->spew('');
+run( 'tweet', '--created-at', '2016-02-03T00:00:00Z', 'Hello World' );
+is( $twtfile->slurp_utf8, "2016-02-03T00:00:00+0000\tHello World\n" );
+
 stdout_is(
     sub { run( 'follow', 'bob', '/bob.txt' ) },
     qq{You're already following bob.\n}